APLICAÇÕES SERIAS 

para 

TK 82C e CP 200 



ÇOM PROgRAMAS LISTADOS PElJT IMPRESSORA 


flut* t Sinclair ? - ÇenvCrtflnda ftulrfli 8«ÍCS - CentMidft d - Éconoaijiftdo itafirii 

Fluiegnaai - Top Do*n - Emi d* Ha» - Cfinhacaflde a UprtMtfi - Chftlnimg Prgjmtt 
Sub-ratinas t* UlltKt - Fôlb* dt pagaianta - &alane«tr - Correçlo aanetjria da ívObiU 
ijdíi _ í*s, cantrttuiçBti de WPAS - CõhUs r«eb«r - Cadastra ds cllantai - Conta bwt l 
Ka - Co.rrtlo d« probas - Protamdor da Uítos - Estatística * Cuitos - Oríiaafit* de 
«fltíco Rta Topar {> e&dtpo - Projeto da teclado <0* Uf-vut da* clrccitoi la prestii 
palaSié* qabirttt !* ttc* .. ,atc« *. 



DE LIO SANTOS LIMA 


Do mesmo autor: 


45 PROGRAMAS PRONTOS PARA RODAR EM TK 82C E NE Z8000 
30 JOGOS PARA ZX 81 TK 82C E CP 200 
CÓDIGO DE MÁQUINA PARA TK 82C E CP 200 


IMPRESSO POR J.A.C. EDITORA GRÁFICA 
SÃO JOSÉ DOS CAMPOS - SP 



APLICAÇÕES SÉRIAS PARA ZX 81, TE 32C E CP 200 
por Delio Santos Lima 

Incluindo programas em. co-autoria 
coa João B. Aquixio 

1 * Edição - Março de 1983 
2» Edição - Junho de 1983' 


Fotografia 
Stu di um Lt da • 

Revisão 

Anita Maria luppi 

Arte final e impressão 
J. A.C. Editora Ltda. 

Composto, edixado e distribuído por 
Micron Eletrônica Com. índ. Ltda. 
Sao Jose dos Campos - SP 


TODOS OS DIREITOS RESERVADOS. 

Nos terços da Lei que resguarda os direitos autorars, 
é proibida a reprodução total ou parcra.., ainda que 
en sistemas similares, de qualquer forma ou por qual 
quer meio - eletrônico, mecânico fotocópia ou grava 
ção sem permissão escrita do Editor. 

© Copyright 1932 by Micron Eletrônica Com.Ind.Ltda. 



PREFACX D 


APLICAÇÕES SÉRIAS pretende Iniciar e abrir caminho, de 
forma pratica e barata, para o uso dos mim~ micros na 
solução de problemas reais. 

0 campo de aplicação é vasto, ainda que contestável e 
carente de software. Principalmente porque software- 
houses inglesas e americanas nao produzem programas 
que atendam as normas do I.A.P.A.S., F.G.T.S., Imposto 
de Renda, etc. ... Para Í3to, so uma solução brasilei 
ra. 

Como nao poderia, pelo menos em um só volume, abordar 
todas as áreas de aplicações serias, os progr ama s, aqui 
encontrados, estão presos à idéia acima. 

Delio Santos Lima 

Caixa Postal 100 

12 200 Sao José dos Campos - SP 

Brasil 



Observaçõe s: 


Os programas sao todos para 16 Kbytes de RAL. 

Não utilizam a função SLOW. 

Os programas foram listado3 em uma ZX PRINTmR. Bs al 
guns, precede a listagem modelos dos resultados mostra 
dos no vídeo. Os programas, após serem digitados, aevem 
ser gravados por GOTO à linha que contenha uma ins 
trução SÀVE. 

Nas listagens, as instruções SAVE contem 0 nome do pro 
grama, estando a última letra em^vídeo inverso.Digite-a 
normalmente e isto ocorrerá, após a gravaçao. 

Finalmente, lembre-se que, se^algum programa lhe pare 
cer longo demais para digitaçao, voce_ poderá recoi-er 
ao teclado mecânico ou ao programa gravado em cassette. 

Veja as páginas 144, 145 e 146. 
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Quem é Sinclair ? 

É o maior fabricante mundial de 
mini computadores, superando até 
IBM.,Radio Shack, Apple e outros. 
Produziu e colocou no mercado mais 
de 500.000 computadores em menos 
de 2 anos, sem ao menos ser M uma fá 
brica" ou possuir uma equipe de 
vendas. 

Clive Sinclair ou "Uncle Clive", co 
mo é amavelmente conhecido entre 
seus alunos, é um especialista em 
microminiaturização, criando e pro. 
duzindo desde minimicro rádios, te 
levisores de bolso, calculadoras , 
instrumentos até microcomputadores. 

Sinclair é o chefe da equipe com 
menos de 20 pessoas que compoem o 
chamado Sinclair Research, na anti 
ga cidade universitária Cambridge, 
no interior da Inglaterra. 


Em 1980, Clive Sinclair colocou no mercado o menor e mais 
barato microcomputador jamais visto: o ZX 80, comercializa 
do por US $ 190 ou em Kit por US $ 149. Oferecia um tecla 
do completo, tipo touch, BASIC residente em ROM de 4K, RAM 
inicial de 1K, etc. ..., continha mais de vinte circuitos 
integrados. 


Hn 1981, um ano depois, lançou o mesmo aparelho com inume 
ras melhorias por apenas US $ 99, reduzindo-o a quatro cir 
cuitos integrados ou "chips", integrados em larga escala, 
incluindo uma ROM de ÔK com ponto flutuante, etc. ... 

Sinclair tem concebido aparelhos que tecnicamente eram in 
viáveis de serem feitos e coloca-os no mercado com uma 
estratégia peculiar que o caracteriza. 

0 seu forte é a inovação e não a exploração comercial, ape_ 
sar de abalar comercialmente as grandes empresas américa 
nas e japoneses e ter faturado em 81, mais de vinte mjL 
Ihões de libras esterlinas. 
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CDNVERTENDO 
DUTRDB BASICs 

0 "BASIC 0 uma linguagem, Uma 1 ingusgem, de programa 
ção e que,como toda linguagem, possui inúmeras varia 
ções, com poucas ou multas diferenças, variando de 
computador para computador. 

0 "BASIC 1 ' criado pela Sinclair ,e utilizado pelos mi 
cros ::E Z800p, CP 200 e TK Ô2C é bastante semelhante 
ao "BASIC" "convencional", excluindo-se a manipula 
ção de dados, apesar do seu "funcionamento sui gene. 
ris" em relação aos demais "BASICs". 

A seguir, apresentamos uma relação das principais di. 
ferenças entre os diferentes "BASICs" e o que pode. 
riamos chamar de "BASIC ZX". 

irÚMERO BE IKSTRUÇOES POR LINHA __ 

A maioria dos BASICs permite o uso de várias instru 
ções por linha, como por exemplo: 
lÇt LET A=1: LET : LET C=1{/:PRHIT À,B,C 

Ilesta casc^ as instruções foram separadas por (:)dois 
pontos. IIo BASIC ZX sõ ê permitido o uso de uma ins¬ 
trução por linha, como por exemplo: 

1Ç( LET A=1 
2 ? LET B=5 
1$ LET C=l? 

40 PRDiT A, B, C 

AS VARliVEIS ___ 

À maioria dos BASICs permite a leitura 6 o envio das 
variáveis,subscritas ou nao, aos periféricos, como o 
cassette, oferecendo grandes vantagens com o arquiva 
mento de dados nos meios magnéticos. 

Ko BASIC ZX, as variáveis são gravadas do e para o 
cassette, juntamente com o programa, ficando o arqui. 
vo de dados limitado a capacidade da RAM, menos o 
consumo do programa. 

AS MATPI2ES ___ - 

lião requerem o uso de CLEAR e/ou DEF. 

0 BASIC ZX possui matrizes numéricas e alfanuméricas 
multidimensionais, subscritos se iniciam em 1. 
não existe A(j/) • 
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OS NOMES DAS VARIÁVEIS 


No BASIC ZX, as variáveis numéricas são denominadas 
por qualquer letra seguida ou não de outros carac^ 
teres alfanuméricos. As variáveis alfanuméricas ou 
cadeias de caracteres sao denominadas de AS até Z$. 

OS NOMES DAS VARIÁVEIS SUBSCRITAS _ 

As matrizes numéricas podem ser denominadas de A a 
Z e as alfanuméricas de AS a Z%, no BASIC ZX» 

A INSTRUÇÃO LET _ 

A maioria dos BASICs permite a omissão da palavra 

LET, como por exemplo: 

ípf A=1 

No BASIC ZX 

1Ç( LET A=1 

AS INSTRUÇÕES INPÜT E PRINT _ 

Bn alguns BASICs a instrução INPÜT permite a entra¬ 
da de vários valores simultaneamente, quando separa 
dos por vírgula. Exemplo: * “ 

IÇt INPÜT A, L, P 

Podendo ainda acumular o significado de PRINT, se 
na forma: 

I tf INPÜT "ALTURA, LARGURA, PESO", A, L, P 

Esta uma única linha, requer 6 linhas no BASIC ZX. 

1ÇÍ PRINT "ALTURA" 

II INPÜT A 

12 PRINT "LARGURA" 

13 INPÜT L 

14 PRINT "PESO" 

15 INPÜT P 

Na maioria dos BASICs quando a instrução PRINT for 
ocasionar uma sobrecarga ou falta de espaço no ví 
deo, este e alterado automaticamente por uma função 
do tipo SCROLL,"abrindo" espaço para a nova mensa 
gem.Este tipo de "proteção" nao existe no BASIC ZX? 

AS INSTRUÇÕES GOTO E GOSUB _ 

Bn alguns BASICs, é obrigatorio que a seguir das 
instruções GOTO e GOSUB esteja especificado um mime 
ro de linha ç que esta exista. "~ 
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Nestas instruções, o BASIC ZX e bem versátil* Nao 
e obrigatório que a linha de número indicado exista, 
o programa se reinicia na primeira l inh a de numeio 
subsequente a indicada. _ , 

0 BASIC ZX permite ainda que a definição do^ numero 
da linha de destino seja feita por uma variável ou 
resultado de operações matemáticas. Exemplos; 

1 Çf GOTO X 
ÍÇJT GOTO X*A/2 
lÇf GOSUB X* A/2 

IF ... THEN ___ 

A maioria dos BASICs permite; 

1$ IF-... THEN Vff 

No BASIC ZX é obrigatório o uso da expressão GOTO. 

Por exemplo; 

l{jT IP ... THEN GOTO IÇÍÇf 

No BASIC ZX não e obrigatório que a seguir de IP... 
THEN seja especificado um número de linha, oferecen 
do as seguintes possibilidades; 

IÇf I?.... THEN PRINT "EUREKA" 
ígf IP ... THEN LET X=X-1 
1Ç( IP ... THEN HUN 

QN X GOTO. ON X,GOS UB___. 

Encontradas nas maioria dos BASICs sao instruções 
de desvio do programa que dependem do valor da va 
riável X. Por exemplo: 

IÇf ON X GOTO IÇÍÇf, 2< W> yf)f 

Fará com que, se a variável X assumir o valor 1, o 
programa desvia-se para a linha de numero lp^, se X 
assumir o valor 2 significa GOTO 200 e se X =3 GOTO 
3S/{/. No BASIC ZX, equivale a; 

IÇf IP X=1 THEN GOTO IÇÍÇf 
12 IP X=2 THEN GOTO 2ÇÍÇÍ 
14 IP X=3 THEN GOTO IÇÍÇf 

BATA, READ t RESTORg _ 

Üicontradas na maioria dos BASICa, prestam-se a ma 
nipulação de dados. Exemplo; 

IÇf BATA 13,23, 33,43 ^ 

Esta instrução contém os valores 13,23,33 e 43 que 
podem ser lidos ou transferidos para uma matric com 
o uso de REAL. Exemplo: 


2fí FOR 11=0 TO 3 

3{jr read a(n) 

4? 11EXT II 

Apresentamos, a seguir, tres versões para o BASIC ZX. 
ljjT LET A(l)=13 
12 LEI A(2)=23 
14 LEI A(3)=33 
16 LEI A(-4)=43 

Esta soluçlo custa 25 bytes,por linha de programa. A 
solução abaixo é bem mais econSmica em termos de 
consumo de memória, 

1 RE.: XXXX (obrigatoriamente, como 1» linha) 

POXE 16514,13 

POKE 16515,23 

POKE 16516,33 

POEE 16517,43 

12 FOR 11=1 TO 4 

14 LET A(N)= PEEK (16513+N) 

16 !1EXT N ' 

E e 3 ta outra, maia economica ainda, 

LET A(l)=13 
LET A(2)=23 
LET A(3)=33 
LET A(4)=43 

U 3 e oa comandos diretamente, sem número de linha. Neja 
te ca30, RUN ou CLEAR apaga os valorea armazena 

d03, 

RESTORE reinicia a definição daa variáveis, do iní 
cio. 

LEFT3, MID3, RIGHTS __ 

Dicontradao na maioria dos BASICs, são instruções pa 
ra manipulação de cadeias de caracteres, Não são en 
contradas no EASIC ZX e podem ser-substituídas, como 
a seguir;. 

I*EFT$(A3,X), fornece os primeiros X caractere’s de AS. 
Equivale a AS(TO X). 

EIGHT3(AS,X), fornece os últimos X caracteres de A|• 
Equivale a AS((LEN(AS)-X) TO), 

MTD3(AS,A,B), fornece a quentidade B de caracteres 
da cadeia AS, a partir da posição A, Equivale a 
A3(à TO(A+B)). 
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ASC, GHRS _ 

A função ASC encontrada na maioria dos SASICs 
fornece o valor ou código do primeiro caractere de 
uma cadeia de caracteres, de acordo com o ASC II. 
ASC (AS) equivale a CODE (A$), no BASIC ZX. Ê im 
portante notar que os códigos dos caracteres do ZX 
nao correspondem em nada ao ASC II , American Na 
tional Standard Coda for Information Interchange , 
utilizado pela maioria dos computadores e periférjL 
cos da atualidade. 

A função CHR$ » uo BASIC ZX, nao difere em nada. 
PONTO FLUTUANTE _ 

0 BASIC ZX, armazena numeros em cinco bytes com 
ponto flutuante. De + 3 X 10"39 a + 7 X 10^ com re_ 
solução de nove dígitos e meio. 

OUTRAS DIFERENÇAS _ 

Bitre a maioria dos BASICs e o BASIC ZX existem ou 
tras diferenças, além das aqui relacionadas. 

Leia o capítulo "erros da ROM" 
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CDNTANDD DS EES Y*TEE> 
EM UMA LINHA 


CONSTANTES NIÍMÉRICAS £ LINHAS DO PROGRAMA 


Voce deve ter visto no manual do seu aparelho que a neao 
ria RAM foi dividida em diferentes áreas, como; área das 
variáveis do sistema operacional, área do programa, área 
do display, área das variáveis do programa, do calcula - 
dor, etc..* e que estas areas variam em comprimento, de 
acordo com as necessidades do programa. 

0 comprimento de uma linha de programa em bytes 1*7*0 é da 
do pelo numero de caracteres mostrados no vídeo. Por e~ 
xemploi 10 RHrt 1 possui 3 caracteres entre números, esoa 

çoô e letras “ 

Na area do programa esta linha tem os dois primeiros by_ 
tes para guardar o numero da linha, os próximos dois bv 
tes são usados para armazenar o comprimento da linha em 
bytes, o próximo byte é a instrução REM, cujo código é 
234, contido em um único byte. A seguir o caractere 1 em 
um byte, que, sendo uma constante numérica, será seguida 
de outro byte, contendo o código 126, para indicar o a-* 
grupamento dos cinco bytes a seguir, para armazenar este 
valor, na forma binária com ponto flutuante. 

Digite e "rode"; 

01 GOTO 10 
20 FOR X = 1 TO 20 

30 PRINT PEEX (16508 + X), CHRS (PEEK (16508 + X));» »;( 
16508 + X) 

4? NEXT X 

Este programa le os vinte primeiros bytes da sua área de 
programa, começando à partir do endereço 16509, que e 
a linha de número 1. 

Observe 03 códigos 126, constante numérica e 118, New Li 
ne. ““ 

RE SUMINDO ____ 

À. Os dois primeiros bytes, de uma linha de programa,con 
tem 0 numero da linha? que é dado, multiplicando-se o 
valor contido no primeiro endereço por 256 somando - 
se ao valor do segundo. 

B. Os próximos dois bytes dão o comprimento da linha em 
bytes. 
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C. 0 quinto byte da linha, obrigatoriamente, contém o có 
digo de nnm instrução, representada no vídeo por uma 
palavra-chave. 

D, As constantes numéricas são armazenadas de duas for 
mas diferentes. Primeiramente os seus caracteres co 
mo voce os vê no vídeo. Bn segundo, como voce não os 
vê, o código 126 que agrupa 03 cinco bytes seguintes 
para armazenar o valor numçrico em uma forma binária 
criada pela Sinclair. 

RESUMO _____ 

A. LINHAS DE PROGRAMA CUSTAM 5 BYTES FORA 0 CONTEÚDO. 

B. COrlSTANTES NUMÉRICAS CUSTAM 6 BYTES,MAIS 0 NÚMERO DE 
CARACTERES MOSTRADOS NO VÍDEO. 


EXEMPLOS 


9999 RBí 
999 RíM 
1 REM 

* 

1 

0.1 

0.3567 

15.34233 


CUSTO S2i BYTES : 6 
6 
6 
7 
7 
9 

12 

14 


CDNTANDD OS BYTES 
DO PROGRAMA 


De um modo geral, praticamente todas as instruções e 
funções custam apenas um byte. Como a maioria não ?o 
de eer usada isoladamente, e preciso considerar os 
argumentos necessários ou aplicáveis a cada caso, pa 
ra conhecermos o consumo de memória. 

A seguir, apresentamos algumas possibilidades: 

AS LINHAS DO PROGRAMA _ 

uma linha do programa são gastos 5 bytes, além do 
seu conteúdo. Dois sao para o número da linha, dois 
para arquivar o comprimento da linha em bytes e um 
para o termino? dado por NEW LINE. 

1 REM 

'Custa 6 bytes. 

OS CARACTERES E PALAVRAS-CHAVE _ 

Quando usados entre aspas, como parte de string, cuj? 
tam definitivamente apenas um byte. 

OS SÍMBOLOS MATEMÁTICOS 1 DE PONTUAÇÃO _ 

Vezes, mais, menos, divisão, potência, maior, menor, 
parenteses, ponto , ponto e vírgula, vírgula, cus 
tam 1 byte. A vírgula como caracter de controle de 
impressão, custa 16 bytes na memória de vídeo. 

AS INSTRUÇÕES _ 

CLS, CLEAR, CONT, COPY, FAST, SLOW, LLIST, LIST, RUI, 
LPRINT, PRINT, RAND, RETURN, SCROLL, STOP, etc..., 
custam apenas 1 byte. Como linha de programa, custam 
6 bytes. 

AS INSTRUÇÕES _ 

LPRINT X, PRINT X, INPUT X, PRINT PI, PRINT RND,etc., 
custam 2 bytes. Como linha de programa, sete bytes. 

AS INSTRUÇÕES _ 

LPRINT X$, PRINT CHR$ X, INPUT XS, etc., custam 3 
bytes. Como linha de programa, 8 byte a. 
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AS INSTRUÇftES LET ___ 

LET X=A custa 4 bytes. LET X$= ,,M custa 6 bytes. 

LET X=0 custa 10 bytes. LET X=3+3 custa 18 bytes, co 
mo linha de programa custa 23 bytes. 

AS INSTRUÇÕES PAUSE, GOTO,. GOSUB ___ 

Custam 2 bytes, se empregadas com variáveis como: 
PAUSE X, GOTO X, GOSUB X . 

Custam pelo menos 8 bytes se empregadas com constan¬ 
tes numéricas como: 

PAUSE 1, GOTO 1, GOSUB 1, 
ou 10 bytes 

PAUSE 100, GOTO 999, GOSUB 100, 
ou 15 bytes 
10 PAUSE 100 . 

AS INSTRUÇÕES POKE, PLOT, IXNBLQT ___ 

POKE X,Y ou PLOT X, Y custa 4 bytes, no entanto 
POKE 1,0 ou PLOT 1,0 custa 16 bytes. 

10 POKE 16418,1# custa 26 bytes. 

A CONDICIONAL _____- 

IF A=1 THEN GOTO 1 custa 19 bytes. 

Possui sete caracteres ou palavras-chave ale'm de duas 
constantes numéricas que custam 6 bytes cada. 

10 IF A-100 THEN GOTO 9000 custa 29 bytes. 

A TABULAÇÃO TAB, AT ___ 

PRINT TAB X;N é a possibilidade que apresenta me 
nor consumo de memória. Custa 5 bytes e como linha 
de programa 10 bytes. 

10 PRINT TAB 1; "X" custa 18 bytes. 

Cada posição de impressão ou coluna deslocada pela 
função TAB irá custar 1 byte extra na memória de ví 
deo. 

10 PRINT AT 0,0 \"X" custa 26 bytes. 

Cada posição de impressão deslocada irá custar um 
byte extra na memória de vídeo. 

AS FUNÇÕES ______ 

ACS, ASIN, ABS, ATN, COS^SQR^ INT, Ltf, TAN, etc..., 
custam 1 byte, mas^ como nao sao validas sem argumsti— 
to, custam "caro". 
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LOOPING ___ 

içf FOR N=1 TO 9 custa 23 bytes, 

1Ç( FOR N=1 TO IÇfÇfÇf custa 26. bytes. 

3 Çf NEXT N custa 7 bytes. 

IÇf FOR N=1 TO 10 fÇfÇf STEP 2 custa 34 bytes. 

SUBSTRINGl _ 

IÇf PRINT AS custa 3 bytes. 

IÇf PRINT À$ (TO 6) custa 18 bytes. 

1 Çf PRIKT AS (TO 200 custa 19 bytes. 

IÇf PRINT AS (2 TO 2 Çf) custa 26 bytes. 

AS mSTRUgüPS DIM , NA ÁREA DO PROGRAMA _ 

1 Çf DIM A(X) custa 10 bytes. 

1 Çf DIM A(X,Y) custa 12 bytes. 

1 Çf DIM A(3) custa 16 bytes, 
lpr DIM A3(3) custa 17 bytes. 

1 Çf DBÍ A(lÇfÇf) custa 18 bytes. 

IÇf DBÍ A3( lÇfÇf) custa 19 bytes. 

IÇf DIM A(3,3) custa 24 bytes. 

0 consumo de memória, citado acima, não inclui a área 
reservada para os elementos da matriz. Vide abaixo • 

AS VARIÁVEIS, NA ÁREA DAS VARIÁVEIS __ 

AS NUMÉRICAS custam 5 bytes, mais o número de carac te¬ 
res do nome. Exemplos:* 

LET A=1 custa 6 bytes e LEI AA=1 custa 7 bytes. 

AS ALFANUMÉRICAS custam 3 bytes, mais a quantidade de 
caracteres empregados. 

DE CONTROLE como FOR X - NEXT X custam 18 bytes. 

AS VARIÁVEIS SUBSCRITAS, NA ÁREA DAS VARIÁVEIS • _ 

MATRIZES NUMÉRICAS custam 4 bytes mais duas vezes a 
quantidade de dimensões mais cinco vezes o número de e 
lementos. Exemplos: “ 

MlM custa 4 + 2*1 + 5*100 - 506 bytes. 
k(lÇfÇf t 7) custa 4 + 2*2 + 5*100*7 * 3508 bytes. 
A(10#,5,7) custa 4 + 2*3 + 5*100*5*7 = 17510 bytes. 
MATRIZES ALFANUMÉRICAS custam 4 bytes mais duas vezes 
o numero de dimensões + a quantidade de carac te res. Ex: 
ASUíW custa 4 + 2*1 + 100 » 106 bytes. 

A$(5,lí/pQ custa 4 + 2*2 + 5*100 = 503 bytes. 

A$(100*5,7) custa 4 + 2*3 + 100*5*7 = 3510 bytes. 
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ECONDM I jL ANDO 

meimor: x A» 


01. Elimine as instruções REU, prefácios explicativos e 
linhas que excluam respostas indesejáveis» _ 

02. Imprima todas as mensagens e símbolos, no canto es¬ 
querdo da tela.______ 

03. Reduza o n2 de linhas do programa ao mínimo. Cada 1 
linha de programa custa 5 bytes. Beis para armaze - 
nar o n2 de linha, dois para o comprimento e 1 para 
para o tér mino (New Line). ____ 

0á. Não dimensione matrizes, a menos qu e necessário. 

05. Elimine os resultados intermediários em cálculos. 

Por exemplo: A/(B*C), use A/B/C. _____ 

06. Reduza a uma mesma linha todas as operações aritmé¬ 
ticas, relacionais e lóg icas possíveis. _ 

07. Remova IF X = 0 THEN... e use IF NOT X THEN vo 

ce economiza uma constante numérica, 6 bytes. 

08. Remova IF T'^100 THEN LET T=T+1 e use 

LET T=T+(T ^100) .Na sentença matemática se verdadei. 
ro =1, se falso =0 ____ 

09. Remova 100 IF INKEYS = "M" THEN LET Y = Y + 1 

110 IF INKEYS = "N" THEN LET Y = Y - 1 e use 

100 LET Y=Y+(1 AND INKEYS ="M*'Ml AND INKEYS = "N"), 
cu use: 

100 LET Y = Y + (LNKEYS s M M") - (INKEYS = "N'*)i pelo 
mesmo princípio do item 08._ 

10. Use variáveis, ao invés de constantes numéricas, sem 
pre que for repetir um número mais que tres vezes, 
no programa. Cada constante numérica custa mais 06 
bytes, além dos caracteres mostrados no vídeo. Isto 
porque sao sempre seguidas do código 126 e outros 5 
bytes para o valor numérico em si. Isto ocorre da 
mesma forma com valores, como 0, 1 ou 1.3233 

11. Use os valores das funções e códigos disponíveis,ao 
invés de introduzir constantes numéricas e/ou variá 
veis. Por exemplo: LET A = 0 ou LET A = 1 ocupa D 
bytes, use; 

LET A = Pl/PI, ou LET A = PI - PI, etc... 
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12. Bemova 10 LET A = 1, 20 LET B = 1 e use : 

LET A = li 20 LET B = A . Isto economiza 6 bytes. 

15. Dê preferência a PEEK e POKE, para armazenar valores, 
sempre que possível. _____. 

14. Transforme as constantes numéricas, ^se forem muitas, 

em uma só variável literal (alfanumérica) , isto é , 
coloque todos os caracteres numéricos um ao lado do 
outro, atribua-lhes o nome de uma variável literal e 
passe a manipulá-los-, como tal. Utilize CODE A$ e/ou 
LET A$=A$ (X TO N), para recuperar os valores. _ 

15. "üverlaying". Voce pode sobrepor um programa em ou 
tro de várias formas, com inúmeras vantagens. Por e- 
xemplo: use um pequeno programa só para definir as 
variáveis de um programa principal., como abaixo: 

10 LET A=1 
12 LET B=2.2 
14 LET SALÁRIO=23568 
16 LET C=12 

Rode "a definição das variaveis" e a^seguir apague-a l_i 

nha por linha. Os valores permanecerão arquivados se vo 

ce não usar RUN ou CLEAR. Use GOTO 1. 

16. Quando arquivando dados, use sempre a_ue possível, ma 
trizes alfanuméricas ao invés de numéricas. 

Por exemplo; um gabarito de provas com 100 questões e 
5 alternativas de resposta poderia ser arquivado em 
uma matriz do tipo X(100) 9 sendo que DM X{100) iria 
custar 506 bytes. 

Usando X$(100), além das 5 alternativas de respos¬ 
ta, numéricas, poderiamos ter respostas A, B,C, D ou E, 
e a matriz custaria apenas 106 bytes. 

Leia o capítulo: "contando os bytes". 
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FLUXDBRAMAS 


Fluxograma e a representação de um procasao por sía 
bolos gráficos a Ebi programação, “processo" refere- 
se a "programa ou sequência de instruções"• 

A seguir apresentamos um flux o gr ama para um progra 
ma da cálculo da área de um quadrado. 



Veja, a seguir, o que representam os diferentes sim 
bolos empregados. 
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O ° u d^> ° u 

Representam o início ou fim do programa. Habitualmen 
te só devem existir dois destes símbolos por progra¬ 
ma.’ Dm para o início e outro para o fim. 

Õ 

Um círculo de dimensão menor qae 'o anterior, signif_i 
ca que o fluxograma continua na próxima página ou em 
outra parte. Geralmente contém um número em seu inte 
rior, idêntico ao da continuação. _~~ 

ou 

Significa uma entrada ou saída de dados, causando u 
ma interrupção no programa até ação do operador, co 
mo por exemplo com as instfuções INPUT, PRINT, 

LPHÜTT, 



Significa execução, mas não relacionada com a entra¬ 
da ou saída de dados ou tomadas de decisão.Algo como 
operações matemáticas. 



É uma tomada de decisão. Oferece duas possibilidades 
sim ou não. 



Sequência ou desvio do programa. 
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TDF=- DDWN 


Quando aa linguagens de programação eram mais comple 
xas, oe computadores ainda de primeira e ,segunda go 
rações, etc..., etc..., os fluxo gr amas ate que podiam 
ter sido boa coisa. 

Hoje, temoa "MICROS'’ computadores, que "FALAM", BASIC, 
cujas instruções são autoexplicativaD e que já devem 
ser de conhecimento de boa parte das pessoas, ao ccn 
trário de mais e novos símbolos gráficos e outros pa 
ra sobre carregarem a pobre mente humana. 

TOP DO WH é uma expressão do inglês, difícil de afere 
cer nrTm boa traduçao. Poderiamos dizer de "cima para 
baixo", ou "linha reta", ou deixemos mesmo TOP DOWN. 

Significa exemplificar a execução de um programa a- 
través de suas funções, principalmente pelo esboço 
dac entradas e saídas de dados em um resumo escrito. 

Por exemplo, o programa da área do quadrado; 

1. INPUT LADO 

2. CALCULAR A ÁREA 

3. PRINT A RESPOSTA 

4. CONTINUA ? S/N? 

5. SIM, THEN RUN 

6. NÃO, THEN STOP 

É um resumo do que se pretende que o programa faça* 

Transformando em programa: 
ípT PRINT "LADO ?" 

12 INPUT L 
14 LET A» L*L 
16 PRINT L 

18 PRINT "AREA ";À;" M2" 

20T PRINT. "OUTRA YE2 ? 3 Oü H? 

22 INPUT PI 
24 CLS 

26 IP P$*"S" THEN RUN 
28 STOP 
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ERRDB Dft ROM 


PfYTglCIACXO ___ 

Não opera com valores negativos, por exemplo: 

PRIST (-2)**2 retorna o código de erro Â/Çf e ^ 
PREIT — 2**2 f resulta em erro, porque na preferencia 
de operações sera feito: 

PRdT -2**2 = -(2 * 2) * -4 


PRECISÃO ARIT-£STICA _ 

Experimente: 

PRDIT 78.89-78.88 
e obterá: 

0.0099999905 

0 mesmo ocorre com outros valores. 

As diferenças, ainda que aparentemente insignifican¬ 
tes, devem ser eliminadas, principalmente em progra¬ 
mas como balanço, custos, folha de pagamento,eto.• • 


AS PRIMEIRAS 8K RCM'S DA SINCLAIR _ 

Conforme alguns autores, as primeiras R0M*s de 8 K 
da Sinclair, sairam com tres bytes, errados em sua gm 
vação, produzindo respostas incorretas. leites 
PRDIT CORRETO ERRADO 

0.25**2 0.0625 3.142384 

SÇR .25 0.5 1.3591409 

Algumas alterações posteriores resolveram o problema 
destes tres bytes, deixando alguma deficienoia na 
função PAUSE, conforme descrito no manuaT do seu apa 
relho. “ 


CONHECENDO 

IMPRESSORA 


Qaando nos dispussmos a fazer este livro t ainda em agos 
to de 1982 esperavamos poder compo-lo na TK Printer, bem 
como testa-la. Contudo» até a data da edição deste, mar 
ço de 1983, não nos foi possível, pois a TK Printer ain 
da não estava disponível no mercado. Esta foi a razão 
pela qual testamos a original ZI Printer, criade produ 
sida e comercializada na Inglaterra, por 
Sinclair Research Ltd., 

Freepost 7, 

Cambridge, CB 21YY, UK 
ao preço de 49,95 libras. 

CARACTERÍSTICAS 

Dimensões e peso; mais leve e menor que O micro. 
Caracteres: 32 por linha, incluindo símbolos gráficos. 
Papel: metalizado, perecível a humidade ou contato 

com os dedos. Rolos de 20 metros por 10 cm de 
largura. Imprime 9 linhas em 2,5 ema. 

Velocidade de impressão: 50 caracteres por segundo de 

pendendo da alimentação DC. 

INSTRUÇÕES DÊ IMPRESSÃO 

LLI ST Funciona igualmente a LIST, sendo a listagem da 
programa enviada a impressora, ao invés de 
vídeo. 

LLIST lista o programa todo. 

LLIST ÍÇÍÇÍ lista, a partir da linha ÍÇÍÇÍ* 

LPBINT Funciona como PRINT e também aceita as funções 
TA3 e AT. Para AT será interpretado apenas o nd 
mera da coluna, sendo ignorado o n> de linha, 
porque a impressora nao pode retroceder Q 
papel. 

CQPY Copia exatamente o que estiver no vídeo, para a 
impressora. Ê a instrução de impressão mais uti^ 
lizada, permitindo inclusive a cópia de gráfi^ 
cos, resultados apresentados no vídeo ou mesmo 
das listagens. 

As instruções LPRINT não são executadas diretamenta. Um 
Buffer existente na RAM, nos endereços 16444 a 16472,ar 
aazena 32 caracteres que serão enviados a impressora,eo 
mente em dos casos: 
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1 . Quando o Buffer estiver completo, com uma linha de 
32 caracteres. 

2 . Após as instruções LPRINT, não terminadas em virgula 
ou ponto e virgula. 

3. Quando a função TAB ou caracter de controle virgula, 
exigir uma nova linha. 

4. Ao termino do programa, ee ficou alguma coisa a ser 
impressa, mesmo que não seja uma linha completa. 


COMO FUNCIONA 

A ZX Printer usa um papel metalizado, de resistência e 
letrica zero. 

É um papel de base escura, coberto com uma fina camada 
de alumínio. Não e durável, vide amostra anexa. 

Quando uma corrente elétrica percorre o alumínio, este 
e queimado, evaporando-se e dando a "impressão" de que 
algo foi impresso. 

O cabeçote de impressão, ou de descarga elétrica, é um 
fino arame, como um alfinete, preso em uma polia de bor 
racha, que se move velozmente da esquerda para a direi¬ 
ta. Na verdade, existem dois destes "aramezinhoe" de 
forma que ao terminar uma linha, (são oito^linhas de fm 
pressão para uma de caracteres), 0 outro já eatejq em 
posiçSo de impressão. 

A velocidade de impressão pode variar dependendo da ten 
são de alimentação, sendo que 0 deslocamento da polia 
com os "a: ames" de impressão está sincronizado com o 
deslocamento vertical do papel, 0 -que as vezes não é 
muito preciso, produzindo caracteres comprimidos. 



CHA I M I MO PROGRAMA 


Chain ing programas a uma necessidade comua ao uao comer 
ciai da computadores. É a manipulação de dadoa antra 
programas* não axieta nos TK 02C, HE Z8000, ato. qual - 
quer instrução específica para aste fim. Contudo ,oom al 
guma habilidade, á poasíval passar dadoa da um programa 
a outro, bem como estabelecer arquivos magna'ticos. 

PASSANDO DADOS EU THE PROGRAMAS 

Por exemplo* temos um controle de estoque com quinze í- 
tana arquivados em uma matriz do tipo X(15)|Onde as dl 
ferentea posições de aatoqua de 30 diaa davam passar a 
um programa de controla mensal da vendas• Uma solução 
seria copiar, manual manta, a posição do estoque ao fi 
nai da cada dia, ou processamento, a introduzi-las via 
teclado no programa de controle de vendaa. A solução 
computorizada seria a anterior com a oopia a a introdu¬ 
ção dos dados por programação. 

Conforme o manual de ueo do seu aparelho, os endereçoa 
16 38Ô a 16 389 contém a variável RAMTOP. Ê a variavel 
do elstema operacional que Indica o endereço do fi nal 
do programa, em b&3ic. 

Para 1 K RAM, RAMTOP - 17 400 
Para 2 K RAM, RAMTOP = 18 432 
Para 16 E RAM, RAMTOP = 32 768 

Dependendo da RAM inatalada, voce obtara um daataa va 
loraa, digitando PRINT PEEK 16388 ♦ 256 * PEEK 16 389. 
Se voce ler o valor contido no endereço 16389 e digl 
far PGÉtE 16 389, (-1 que o valor lido), voce terá bai 
xado o RAMTOP em 256 bytea. Isto significa reservar 
ns IAM 256 bytea, totalmente imunes aos efeitos da NSW, 
LOAD, SAVE, RUR a LIST. lato porque, estee bytea não 
serão maia considerados parte do programa em baalo, pe_ 
lo menos, co entendimento do sistema operacional. 

Veja o capítulo, alterando as variáveiB do aietemai 

Voltando a matriz do tipo X(15), tudo o que preoleamos 
fazer á transferir oe seus valores para oa endereçoa a 
cima do RAM TOP, digitarmos NEW a carraçarmoe o novo 
programa via teclado ou caeaatta que Ira usar estas va 
rláveis. 
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, . r,ito por uma subrotina no primeiro progra 
l* arquivar aa variáveis acima do RAMTOP e, no se 
^do programa, uma subrotina para voltar oe valores a 
fítrl*? Ital matrla do tipo 1(15) ocupa em bytes, 6+5 ▼« 
“ 0 8 eu número de elementos, 0 programa, a seguir, le 
BI bvtee acima do RAMTOP, colocando-oe noe endereços da 
■atriz 1(15). Digite o programa e grave-o como "CHAIH 

LER*. 


101 f*EM MICRON CHRIN 

102 PRINT "CHRIN LER" 

103 DIM X(15) 

104. LET E =PEEK 164-00 +256 jfPEEK 1 
64-01 

105 LET N=PEEK 163SS+256íPEEK 1 
6330 

106 FOR C=0 TO 60 

107 POKE E+C..PEEK CN+C) 

108 NEXT C 

109 FOR X=1 TO 15 

110 PRINT X(X) 

111 NEXT X 


CHRIN LER 

52 

62 

97 

69 

3 

79 

16 

35 

17 

75 

97 

58 

88 

25 
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Para utilixá-lo, voce precisará ter, primeiro, arquivado 
valores acima do RAJdTGP, o que pode ser feito com o auxí 
lio desta rotina. 

Bode este último programa que ira gerar valores aleató - 
rios. Ao final do mesmo, será carregado o programa "CHAIN 
LER", se voce voltar o cassette ao início. 0 programa " 
CHAIN XER", ao. ser rodado, sem ter qualquer valor arqui¬ 
vado, irá fornecer oa dados entrados ou gerados pelo pro 
grama anterior. 

Observe qua a linha n* 1# "baixará o RAMTOP em 256 bj - 

tea. 


101 REM M2CRGN CHRIN 

102 PRINT "CHAIN RRO“ 

103 POKE 16389,( PEEK (16389)-1) 

104 DIM X(15) 

105 PRINT "URLORES GERADOS P/ T 
ESTE" 

106 FOR C=1 TO 15 

107 LET S»INT (RNDtlQQ) +1 

108 LET X (C)=S 

109 PRIN1 S 

110 NEXT C 

111 LET E=PEEK 164.00 -t-256 íPEEK 1 
6401 

112 LET N = (PEEK. 16386 +256 f PEEK 
16389) 

113 FOR C=0 TO 80 

114 POKE N+C..PEEK CE+C) 

115 NEXT C 

116 PRINT "UOLTE K7 RO COMECO".. 

"DO PROGRAMA ""CHAIN LER.,"DIG 

ITE <NEU LINE >" 

117 INPUT U$ 

118 LOAD "CHAIN LER''* 


CHAIN ARO 

URLORES GERADOS P/ TESTE 
52 
62 
97 
69 
3 

79 

16 

35 

17 

75 

97 


26 




SUB-RDTI NAS 
p~ 3*^1 C A SSE! "7” E! 


Os programas podem aer gravadoa do cassette por elea 
meamos. fTeetea dola programas, um funciona como aub 
rotina do outro, deade que voce movimente o cassette 
de acordo. 


2 SAVE "MESTRE" 

6 PRINT "PROGRAMA MESTRE" 

8 PRINT " VOLTE O K7 P/ SUBROTINÀ" 
1(7 PRINT "DIGITE NEW LINE" 

12 INPUT X$ 

14 LOAD "SUBROTINÀ" 


2 SAVE "SUBROTINÀ" 

4 PRINT "SUBROTINÀ" 

6 PRINT ■ VOLTE K7 P/ MESTRE" 
8 PRINT "DIGITE NEW LINE" 

Vf INPUT XI 
12 LOAD "MESTRE" 


IMPORTANTE: 

A utilização de aubrotinaa em cassette nao apresenta 
grandea vantagens, a menos que em conjunto com as ro¬ 
tinas denominadas CHAIN LER e GHAIN ARQ, do capítulo 
CHAINING PROGRAMAS, P 



SUB-RDT I NP»S 

de servi <^d 

Para obter o número de bytes ocupados pelo programa: 
9990 PRINT PEEK 1639o + 256 * PEEK 16397 - 16509 

Incluindo as variáveis e a memória do vídeo: 

9990 PRINT PEEK 16404 + 256 * PEEK 16405 - 16509 

Para saber a capacidade da memória instalada: 

9990 PRINT PEEK 16333 + 256 * PEEK 16339 - 16334 

Para obter o número de bytes da memória disponível: 
9990 PRINT(PEEK 16338 + 256 * PEEK 16339 - 16334)- 
(PEEX 16404 + 256 # PEEK 16405 - 16334) 

Para aproximar um número com duaa casaa dooixais: 

9390 LET X=(INT(X*100+.5))/l00 

Para transformar os meses do ano, digitados numérica 
mente, em seus equivalentes com tres letras: 

9000 PRINT "DIGITE MES DO ANO EM NÚMERO" 

9010 INPUT X 

9020 IST A$" JANFEVKAJRABRIilAl JUNJULAGOSETOUTN 07DEZ " 
9030 PRINT X 

9040 PRINT "0 MES EH »;A$(X*3 -2 TO X*3) 

Para transformar* os mese3 do ano digitados em tres 
letras, em seus correspondentes numéricos: 

9000 PRINT "DIGITE MES DO ANO EM 3 LETRAS» 

9010 INPUT M$ 

9020 LET AS = »JANPOT4ARABR!LaJU:iJULAG0SET0UTN0VDEZ» 

9030 PRINT MS 

9040 FOR N = 1 TO 12 

9050 I? A$(N* 3 -2 TO N*3)=M* THEN GOTO 9030 
9060 NEXT N 
9070 STOP 

9080 PRINT »0 MES EH »;N 

Para utilizar INKEYS no modo FAST : 

9000 RAND USR 681 

9010 IF INKEYS="R» THEN RUN 

9020 GOTO 9000 

A- linha 9000 significa algo como: 

IF INKEYS <> THEN INPUT INKEYS. Ê um INKEYS "para¬ 
do». A função só é interpretada se houver alguma te 
cia pressionada. Vide o programa Processador de Tex¬ 
tos". 
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pdlha de pagamento 


para "n* funcionários. Fornece os contra-cheques por 
funcionário, resumo dos contra-cheques, as cinco guias 
do IAPAS de acordo coa os percentuais de deroonto e a 
guia do FGTS. Atualizado ate a instrução normativa do 
3 .B.Í. n*055 da 03/09/82. 


FOLHR DE PAGAMENTO 


MICRON ELETRÔNICA 
JOAQ B.AQUINO 


MINIHO REGIONAL:*23.566,00 S/N? 
5 


FOLHR DE PAGAMENTO 
QTOS.FUNCIONÁRIOS 




FUNCIONÁRIO 1 
OURL O SRLRRIO EM $' 
POR MES DIGITE M 
POR HQRR DIGITE M 
POR DIR DIGITE D 
bAL.HORfl: 

FALTAS? DIGITE S^N 
HORAS EXTRRS? S.^N 
PRÊMIOS EM $?: 
^ej-.FAM. tN " QUOTAS) 
UALES? 


12000 


M 

50 

N 

N 

1200 

11TS.4- 


29 



CONTRACHEQUE - 

FUNCIONÁRIO 1 

SALARIOxMES=$ 
HS EXTRAS=$ 
PRÊMIOS=$ _ „ 

SRLARIO BASE = $ 

12000 

0 

1200 

13200 

IAPAS 

8.5 B X « 

DESC.IAPAS=$ 

1122 

I.R.R.F.=$ 

0 

SAL.FAMILIA=$ 

jL 178 » 4* 

R RECEBER=í 

12756 *4^ 

FOLHA DE PAGAMENTO 

SfiLfiRIO/MES=$ 

ir 100 

HS EXTRAS=$ 

O 

PRÊMIOS = $ 

1200 

SALARIO BASE = $ 

132.00 

DESC.IAPAS = $ 

1122 

I.R.R.F.=$ 

Q 

URLES = $ 

50© 

SRL. FAMILIfl=$ 

1176 

A RECEBER=$ 

12756.«t 


IGUIR DE RECOLHIMENTO DO IflPflS 


13200 

1 

® 3524- - 4- 

3524-, 4- 
4-316.4. 

g 

333 
26.39 
132 
193 
636 . '39 

4-316.4- 
1173.4- 
3133 
686.39 
3324-. 39 


COD. "396": 

COD."4-18": 

COD.019”(26.7) 
COD."027”:(6) 
COD."14B/167»: 


COD. "175”: 
COD. "183": 
COD."205X221" 
COD. "213X230" 
COD. "272": 


COD."280": 

COD. "299": 

COD. "310“: 

COD. "329": 

COD. "337X383": 




ia print "MICRON ELETRÔNICA" 
li PRINT "JOflO B.ftOUINO" 

IS UET RR=PI-PI 
li UET B=PI/PI 

21 UET C=B+B 

22 UET D=C+B 
24- UET E=D+B 
27 UET F=g + B 
3® UET G=F+B 
33 UET H=G+B 
36 UET I=H+B 
39 UET U=I+B 
4.2 UET U = I+B 
4-5 UET K=J+B 
4-8 UET U=K*K 

51 UET TB =FiE+C 
54- DIM SCF) 

57 DIM M CF) 

50 DIM PCF) 

63 DIM LCF) 

66 DIM IMF) 

69 DIM T CF) 

72 DIM Y CF) 

73 REM 

75 DIM UCF) 

78 DIM X CF) 

81 DIM Z CF) 

84. DIM R CF) 

30 INPUT Jí 

IÍ IF THEN GOTO 102 

96 UET JO»S3568 
99 GOTO 108 

0 X DR REGIRO^" URL ° SRL * RIQ «ÍNXM 

105 INPUT Jo 

106 CUS 

qÍpmtoÍ 1 ^?! I j RR; “FOUHfl DÊ PRG 
, “QTO* . FUNCIONÁRIOS" 

114- INPUT FC 
117 Ci_S 

120 FOR N=B TO FC 

123 PRINT “FUNCIONÁRIO N 
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126 PRINT 
" ;TRB TB, 
122 INPUT 
132 PRINT 
•* , "POR HORR 
DIGITE","D 
135 INPUT 
138 IF P$= 
141 IF P$= 


"QUAL O SflLRRIQ EM $7 

1,-PQR MES DIGITE",^ 
DIGITE","H"*“POR DIR 
••; TRB TB; 
p$ 

"D" THEN LET S=S*K*D 
"H'* THEN LET S=S*F*G* 


I 14.4. LET SH = INT 


( CS/tF*G*Il * *U) / 


U 

14.7 


PRINT P$, "SRL. HORR: **; TRB TB 


ISO PRINT "FRLTflS? DIGITE S/N“; 
TRB TB; 

153 INPUT U$ 

156 PRINT U$ 

159 IF U$<>"S" THEN GOTO 1B6 
162 PRINT "SE POR HORR, QTRS.HS 


7";TRB TB; 

165 INPUT HR 
IBS LET FL=HRi5H 

171 PRINT HR," OTOS .DIRS?";TRB T 

g « 

174- INPUT U 
177 PRINT U 

180 LET FL=FL+ t CSH-fcll *U) 

183 LET S =S —FL 

186 PRINT "HORRS EXTRAS? S/N“;T 


RB TB; 

139 INPUT N$ 

192 PRINT N $ 

195 IF Nt<>"S" THEN LET SE=RR 
198 IF N$ < > *'S" THEN GOTO 234. 
201 PRINT "HS EXTRRS R 20*/.7"; 


TRB TB; 

204. INPUT HR 

207 LET SE=C(SH*I.21*U)*HR 
210 PRINT HR,"HS EXTRRS R 25"/« 


*'; TRB TB; 

213 INPUT HR . 11( __ 

216 LET SE=SE+ C C CSH*1.251 *HR 


) 




219 PRINT 
-»;TRB tb; 
222 INPUT 
S2S PRXNT 
22© L.C.T M 
I /U 

231 GOTO 
234- LET M 
237 PRINT 

T ii 0 INPUT 
24-3 PRINT 
) ’*;TflB tb; 
24-6 INPUT 
24-9 LET L 

*252 PRINT 
255 INPUT 
258 L-ET T 
261 IF T< 
264 IF T > 
EN LET 0=8 
267 IF T > 
EN LET Q=U 
270 IF T > 
THEN LET O 
273 IF T > 
276 IF Q= 
279 IF O = 
282 IF Q= 
285 IF O = 
288 IF Q= 
291 LET S 
294- LET M 
297 LET P 


NR >"HS EXTRRS R 100* ✓ 


=INT CSE +(CSH*C)*MR)*U 

237 

=RR 

"PRÊMIOS EM *7 ; M : TRB 


P,"SRL.FRM.CN* OUOTRS 


=L*CINT C(UQ*FyU)*U )/U 

L , "URLES7" 

U 

=S+M+P 

CD*JO) THEN LET 0=8,5 
CD*JO) RND T <CF*UQ) TH 
.75 

(FiJO) RND T<CK*JQ) TH 

ÍK*JQ) RND T<CD*F*UO> 
=9.5 

CD*F*JO) THEN LET 0=10 

8.5 THEN LET R=B 
8.75 THEN LET R=C 
U THEN LET R=D 

9.5 THEN LET R=E 
K THEN LET R=F 
(R) =S ÍR) +S 

CR) =M CR) +M 
CR) =P CR) +P 


300 LET UCR)=UCR)+U 
303 LET TCR)=TCR)+T 
306 LET L(R)=L(R)+L 
309 LET RCR)=RCR)+B 
312 LET TD =4-20 
315 CLS 

318 LET Y=INT CT* COxUl *U )/U 
321 LET Z=RR 
324- LET IR =T-Y 
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327 IF IR<111000 THEN GOTO TD 

Hl PRINT -OTOS. DEPENDENTES PE 
RfiNTE O X.R." 

336 INPUT DPT 
339 CUS 

34.2 LET DEP=DPT *11000 
345 LET XRF = XR-DEP 

348 IF IRF<111001 THEN ^QTQ TD 
351 IF IRF>=111000 RND IRF<1700 

00 THEN GOTO 369 __ 

354 IF IRF>=170000 RND IRF<2420 

00 THEN GOTO 378 _ 

357 IF IRF>=242000 RND XRF<3780 
00 THEN GOTO 387 
360 IF IRF>=373000 RND IRF<6080 

00 THEN GOTO 396 __ M „ 

363 IF IRF>=608000 RND IRF<8640 

00 THEN GOTO 405 . _. . 

366 IF IRF >=864000 THEN GOTO» 41 

^369 LET Z = INT (IRFíCtG/U) 

372 LET Z=Z—13320 

374 REM 

375 GOTO TD ^ _ ..... 

378 LET Z = INT (IRF*E*E^U> - 
381 LET Z=Z-20120 

387 LET°Z=INT (IRF*E*F/U> 

390 LET Z=Z-29800 
393 GOTO TD 

396 LET Z=INT (IRF*F*F/U) 

399 LET Z =2.-48?®© 

402 GOTO TD 

405 LET Z = INT t IRF *F *G /'U í 
408 LET Z =Z—79100 

414 LET°zIlNT tIRF *F íH/U) 

41? LET Z=Z—122300 _ 

420 PRINT ’* CONTRACHEQUE - FUNCI 
ONRRIO ";N 
423 LET GS =951 
426 LET UU=S 
429 GQSUB GS 
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4-32 

*4.35 

4-38 

4.4.1 

4-4.4. 

4.4.7 

4.58 

4-53 

4-56 

4-59 

4.62 

4-65 

4-66 

4-71 

4-74- 

4-77 

4-88 

4-83 

4-86 

4-69 

4-92 

4-95 

4-96 

4-93 

581 

504 

507 

510 

513 

516 

519 

522 
525 

523 
531 
534- 
537 
54-0 

S CP) 
54-3 

M CF) 
546 

P CF) 


R.F. =*** 


PRINT .^/'SflLflRIC/MES^^K 

let uu=h 

PRINT "HS EXTRflS=$">K$ 

LET UU=P 
GOSUB 6 S 

PRINT ’*PRENIQS«6'* iK$ 

LET UU=T 
GOõUB GS 

PRINT "SflLRRIO BRSE^^K* 
PRINT ,/TRPflS , ' J ;Oj" , / l " 

LET Y CR) =Y CR) +Y 
LET UU=Y 
GOSUB GS 

PRINT , , ,, DESC.IRPflS = *" J Kf 
LET Z CR) =Z CR) +Z 
LET UU=Z 
GOSUB GS 
PRINT "I.R, 

LET UU=U 
LET UU=U 
GOSUB GS 
REM 

LET UU=L 
GOsUB GS 

PRINT "SRL . FRNILIR=s*" ,K$ 

LET X=T-Y+L-U-Z 
LET X CR) =X CR) +X 
LET UU=X 
GOSUB GS 

PRINT , ,“fl RECEBER-$*‘ , Kt 
PRINT RT U+J,RR,«DIGITE P" 
INPUT P* 

CLS 

NEXT $ N >,,P '* THEN GOT ° 522 

PRINT "FOLHft DE PflGRMENTO” 
LET Sfl=5CB) +S CC) +5 CD) +S(E) + 

LET SB=MCB)+MCC)+MCD)+MCE)+ 

LET SC=P CB) +P CC) +P CD) +P (E) + 
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54.9 LET SD=TÍB) +T(C) +T(D) +T(E) + 
T CF) 

552 LET SYsY(B) +Y(C) +V CD) +Y (E) + 
V CF) 

555 LET SU=UCB)+UCC)+UCD)+UCE)+ 
U CF) 

558 LET SM=L(B) +L CC) +L(D) +L CE) + 
L CF) 

561 LET SN=XCB) +XCC) +XCD' +X (E) + 
X CF) 

564. LET UU=Sfl 
567 GOSUB GS 

570 PRINT , , , , "SRLRRIO/MESs:* " , K 

573 LET UU =SB 

576 GOSUB GS 

579 PRXNT "HS EXTRflS = f 

5S2 LET UU=SC 

585 GOSUB GS 

588 PRXNT '*PREMIOS = $'" >Kí 
591 LET UU=SD 
594- GOSUB GS 

597 PRINT "SRLflRIO BRSE;$",K$ 
600 LET UU*SY 
603 GOSUB GS 

606 PRINT , , *’ DESC . IRPR5 = $” , KJ 
609 LET IRRF=Z CB) +Z CC) +ZCD) +Z.CE 
) +Z CF) 

612 LET UU=IRRF 

615 GOSUB GS 

618 PRINT "I.R.R.F- 

621 LET UU=SU 

624 GOSUB GS 

627 PRINT "URLESsí", 

630 LET UU=SM 
633 GOSUB GS 

636 PRINT "SRL. FRMILIRs$" 

639 LET UU=SN 

642 GOSUB GS 

645 PRINT , , ‘‘R RECEBER = 

648 PRINT ,,,, ‘DIGITE P” 

651 INPUT O* 

654 IF OíSO^P" THEN GOTO 648 
657 CLS 
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«60 PRINT “OURL. R TRXR DE SEGUR 
°66â INPUT TX 

lis PRINT ... fl FfllXR S 

IlileF 


"fifil PRINT •'COD.'* M 396“ , ': w ,.TtQi 
6®Í PRINT "COD • “ **4-3.8“’*: ** , R CQ) 
087 IF 0=6 THEN LET YY=26.7 
890 IF Ü=B THEN LET MHsTIO)«YY/ 

U 693 IF 0=C THEN LET YY=2fi.95 
696 IF Q=C THEN LET MM=Tl0IiYY/ 

U S99 IF Q=D THEN LET YY=27.2 
702 IF O =D THEN LET MMsT(O)*YY/ 

U 7CS IF 0=E THEN LET YY=27.7 
708 IF O sE THEN LET MM*T(O) *YY✓ 

U 711 IF O =F THEN LET YY=28.2 
714. IF O =F THEN LET MH*T lül *YY✓ 
U 

717 LET HHs INT (MH*U) 

7 Í 3 let^uu 

726 GOSUB GS 

729 PRINT “COD.019. 

“ ^ K j 

732 LET N= (T (O) *TX.'U1 *U 
735 IF TX=.4 THEN LET NsINT ÍN + 
8 ) /U 

738 IF TX =. 4- THEN GOTO 741 
741 LET N=INT N/U 
744 LET UU=N 

747 PRINT "COD.““027““:“(“;TX 
í ") M #K$ 

*750 *LET MNsMM+N 
753 LET UU=MN 
756 GOSUB GS 
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759 

762 
/U 

765 

763 
771 
774 - 
777 

U 

760 
783 
786 
789 
792 
795 
798 
801 

/U 

304 . 

307 

310 

813 

316 

317 
818 
819 
322 
825 
828 
831 
834 . 
837 
840 
343 
346 
849 
352 
355 
358 
361 
364 
367 
370 
373 


PR TNT *'CQD . " " 140 / 167" ** *. " 

LET 00 = INT ( (T CO)*2.5/U) *U) 

PRINT 
LET UU=0Ü 

PRINT "COD.""17S"":",K$ 

LET RR=INT ((TfO)Í.2/U)tU)/ 

LET UU=RR 

PRINT "COD."”183“":".K$ 

LET LR = INT C (T CO) *B/U) *U) /U 
LET UU=LR 

PRINT "COD."“20S/221 "/K$ 

LET BO=INT CCTCO)*1.5/U>*U) 

LET UU =BO 

GOSUB GS .. ,, __ 

PRINT "COD-“"213/230” ’ >N* 

LET UU =00 +RR +LA+BO 

LET UU=UU 

REM 

REM 

GOSUB GS 

PRINT "COD-“"272"": "(KJ 
PRINT " iWMíIkS " 

LET UU=MN 
GOSUB GS 

PRINT "COD.“"280“":",K* 

LET UU=LCO) 

PRINT "COD.""299"":“ 

LET MNF=MN-LCO) 

LET UUsMNF 

PRINT "COD.""310"": “ 

LET UU=UU 

GOSUB GS „ __ 

PRINT "COD.""329“": >K$ 

LET UU=MNF+UU 

PRIN? "COD. " " 337/388“ " : ” j« K $ 
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876 PRINT "--- 

Z.L.Z-- -** , “PRRR OUTRR FRIXR D1'G 

” E ..»p.,"PflRfl F.G.T.S. DIGITE 

A M «I p •• •• %4 

879 INPUT W$ 

889 IF W$="P M THEN GOTO 666 
885 CLS 

eoa PRINT RT H.RR;" 


891 LET BC=T(B> +T (Cí +TCD) i-T(E) ♦ 

T 894 LET FGTS=INT ( (BCsIXU) *U) /U 
897 PRINT , i “FUNCIQNRRI05*' , fi (B) 
+R (G) +R CD) +R (E) +R (F) 

900 PRINT j, "SRL.BRSC",BC 
903 PRINT ,>"F.G.T.S..:", FGTS 
906 PRINT RT K+ü,RR;"DIGITE P" 
909 INPUT X$ 

912 IF XÍO-P" THEN GOTO 908 
915 IF IRRF < >0 THEN GOTO 921 
918 GOTO 927 
921 CI_S 


924- PRINT RT H.RR: 


fe&SjSSSMEQUE NE ST =. Hc.5 HHri RECOLH I MENT O— 
do IMPOSTO DE REHDfítÜ—— 


927 PRINT RT U+U,RR;"PX OUTROS 
CRLCULOS DIGITE ““O" "" 

930 PRINT RT K+U,RR;"P/ TERMINR 

R DIGITE ’*"NEU LINE. 

933 INPUT O* 

936 IF 0$ = **0" THEN CLS 
939 IF Q$="0" THEN RUN 
94.2 CLS 


94 -5 PRINT RT C *G , RR; "I 
94-8 STOP 


951 LET KS- M 

954. LET CC»LEN STR* UÜ 

Tol 7 .,h Er K *<tK+D)-CC TO ÍK+Ci>*S 
* HJ UU 


960 RETURN 
963 STOP 


966 SRUE "FL«PRGTH" 
969 RUN 
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BALANCETE 


CONTÁBILIDADE 

NUMERA E ARQUIUA 
flTEH 1S30 ví DOCUMENTOS. 

OS UALORE3 SAO LANÇADOS , 
A DEBITO E A CREDITO 

CLASSIFICA E LISTA 
POR CODIGOS, MflX.100. 


QUANTOS LANC. SERÃO REALIZADOS 7 
500 


DOCUMENTO NO. 1© 

DEBITO? _ 

UALOR EM CRÍ 4-5000 

CREDITO? 


QUAL O CODIGO A LISTAR? 
22 


CODIGO 

NO.DE ENTRADA 

1 

2 

3 

4- 

5 

5 

y 

6 

9 

10 


URLOR TOTRL= 


22 

UfiLORES EH CR $ 

2300 
-430U0 
-12000 
-1250 
4-300 
23500 
-33000 
2200 
2460 
2000 


-52490 


PROXIMO CODIGO DIGITE P 
OUTROS LRNCfiHENTOS? S./N 
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0 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


REM MICRON ELETRONICR 
REN JOfiO B.fiOUINO 
DIM Z (10 i 120) 

DIM 0(120) 

OIM O(10 t 120) 

DIM N C120) 

1_ET Z = 1 
l_ET K=Z 

PRINT "CONTOBILIDODE" 

LET U=Z 

PRINT ,,"NUMERO E ORQUIUO" 
PRINT "flTEH 10013 DOCUMENTOS, 


13 PRINT “CUJOS UflLQRES 500 LO 
NCODOS >“^“O DEBITO E ft CREDITO" 
14- LET H =U —U 

15 PRINT , , "CLOSSIFIC-fl E LISTO 


16 PRINT "POR CODIGOS t MOX.100 

• « 

* x7 PRINT ,,,,"QUANTOS LONC. SE 

RRO REOLIZODOS •*?** 

18 INPUT K. 

19 PRINT INICIO DIGITE " 

H p *» •» • * 

20 INPUT P* 

21 CLS 

22 IF P*<>“P" THEN GOTO S 

23 PRINT "- 


24 PRINT "DOCUMENTO NO.",;Z 

25 PRINT ,,“DEBITO?", 

26 LET B=U 

27 GOSUB 32 

28 PRINT "CREDITO?", 

29 LET B=-U 

30 GOSUB 32 

31 GOTO 45 

32 INPUT O 

33 PRINT O 

34 LET N(0)=NC0)+U 

35 IF N(O)>=11 THEN GOTO 73 

36 LET Z(N(0),0)=Z 

37 IF B = —U THEN LET* Z=Z+U 
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38 IF B = —U THEN GOTO 4-1 

39 PRINT. "UflLOR EM CR$" , 

4.0 1NPUT U 

4-1 LET U (N (fl) , R) =U*B 
4-2 1F B = -U TMEN GOTO 44 
4-3 PRINT U(N(R),R) 

4-4- RETURN 

45 IF 2>=K+U THEN GOTO 48 

46 IF (2/3)=INT (2/3) THEN CLS 


47 GOTO 23 

48 PRINT "OUTROS LftNCflMENTOS? 
S/N" 

49 INPUT P* 

50 CLS 

51 IF P$="S" THEN GOTO 23 

52 IF R=100 THEN GOTO 56 

53 IF P$="P" THEN LET R=R+U 

54 IF U(U,R)=0 THEN GOTO 52 

55 IF Pí^P" THEN GOTO 58 

56 PRINT "OUflL O CODIGO R LIST 
RR° ** 

57 INPUT R 

56 CL5 __ 

59 IF R=H THEN GOTO 72 

60 PRINT "CODIGO"_ 

61 PRINT ,,“NO.DE ENTRRDR", "UR 
LORES EM CR$“ 

62 PRINT 

63 LET T=H 

64 FOR X=U TO 10 

65 IF U(X > R) =0 THEN GOTO 69 

66 PRINT 2 (X , R) , U (X ,R) 

67 LET T=T+U(X,R) 

68 NEXT X. . __ 

69 PRINT , t ,,"URLOR TOTRL= ,T 

70 PRINT ,,,,“PROXIMO CODIGO D 
IGITE P" 

71 GOTO 48 

72 STOP 

73 CLS 

74 PRINT R T 8 , H j 
; R; * 


ESTfi COM 


ESTE. 


NUMERO 


CODIGO 



rs 


76 


PRINT 

«MSI 

PRINT 

PRINT 


DE LflNCPMENTOS ESGO 


OIONE-O COM QÜTRS CO 


__ "SE UR RELRCI 

ONOU DIGITE 
78 INPUT Rí 
7Q IF R$="R“ THEN CLS 
80 XF R$ = '*R" THEN GOTO 23 
«5. STOP 

82 SAOE "CONTABILIDADE" 

83 RUN 


Utilizado como razonete para a elaboração de balance¬ 
tes. Arquiva até mil e duzentos documentos pelos códi¬ 
gos de débito e crédito. Aceita até dez documentos por 
código, sendo os códigos de 1 a 120. Habitualmente 
usam- se os códigos de 1 a 100. Quando um destes códi 
goa estiver com o número de lançamento esgotado (dez) 9 
isto será indicado e deve-se relaciona-lo com um doa 
códigos de 100 a 120, chamados de códigos reserva. 

Caso os códigos empregados na contabilidade sejam de 
valores acima de 100 ou 120, faça uso do programa or 
denador de códigos, para resolver o problema. 

0 programa fornece a listagem dos documentos por oódi¬ 
go, com números de entrada, valores e totais. 
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RENUMERADDR 
OEE COO X BDB 


PARR USO COM O PROG. CQNTR6IL- 
ORDENRDOR DE CODIGOS 
REM MICRON ELETRONICR 

REM joro b.rouino 

PRRR RENUMERRR DIGITE -7070 
ENTRE COD. 1* 


PRRR RENUMERRR 


ENTRE 

COD . 

1 

ENTRE 

LÜD * 

2 

ENTRE 

COD . 

3 

ENTRE 

lOD . 

4 

ENTRE 

COD. 

5 

ENTRE 

COD. 

o 

ENTRE 

COD . 

7 

ENTRE 

COD • 

8 

ENTRE 

COD. 

9 

ENTRE 

COD. 

10 

ENTRE 

COD. 

11 

ENTRE 

COD. 

12 

ENTRE 

COD. 

13 

ENTRE 

COD. 

14. 

ENTRE 

COD. 

15 

-7070 




IGITE -7070 

9932 

234-3 

2322 
1234- 
234-5 

2323 
234-Õ 
1232 
1222 
12.11 
9375 
984-5 
8764-5 
34-75 


1 . 1211 

2 . 1222 

3 . 1232 

4- . 1234- 

5 . 2322 

6 . 2323 

7 .. 234-3 

3 . 234-5 

9 . 234-6 

10 . 34-75 

11 . 934-5 

12 . 9375 

13 . 9932 

14- . 8764-5 


RECOMECR 7 S/N? 
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0 

1 

2 
3 
4- 

cr 

w 

6 

7 

8 


REM 

LET 

DIfi 

LET 

LET 

LET 

LET 

LET 

IP 


MICRON/JB. ROUINO SJBlSMEgbj 
S =-7070 
QC110) 

Z =S —S 
Y =S /S 
U=Y 
K = 10 
U —K *K 

Z > =U —K AND Z <U THEN GOSli 


B 33 
9 

10 

11 

12 

GOTO 

13 

14- 

15 

15 

17 

13 


PRINT “ENTRE COD. “;Z+Y>; 
INPUT O CU) 

POR fi=Y TO Z+Y 

XF QCU)=QíR) RND RoU THEN 
10 

NEXT R 

IF O (UI) =3 THEN GOTO 20 
LET Z=Z+Y 
PRINT O(U) 

LET L)=U+Y 

IP <ZXl5)=INT (2/15) THEN C 


LS 

19 GOTO 8 

20 CLS 

21 POR X=Y TO Z 

22 FOR NsX+Y TO 

23 IF O (X) >0 (N) 

24- LET E=Q (X) 

25 LET O(X)=0(N) 

26 LET O(N)=E 

27 NEXT N 

28 NEXT X 

29 FOR N=Y TO Z 

30 PRINT N;TRB 3;“ 
“ ,Q(Z-N+Y) 

31 NEXT N 

32 GOTO 4-4- 

33 PRINT RT 14. . 14. ; 1 

bnasr;u-z; 

Sr 


THEN GOTO 27 


CUIDADO Fft 

CODIGfOS PRPfi TEPMIMP 


34. PRUSE 150 

35 CLS 

36 RETURN 

37 ST OP 
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38 » 5RUE "ORDENRDOB" 

39''PRINT , , , /‘PflRfl USO COM O 
RQG. CONTÁBIL",,>"ORDENflDOR DÊ 
QDIGOS" , > , "REM MICRON ELETRONI 
",,, M REM JORO B.ROUINO” 

4.0 PRUSE 200 

4-1 CLS 

4-2 PRINT "PRRfi RENUMERRR DIGIT 
E -7070" 

43 RUN 

44 PRINT “RECOMECR 7 S/-N7" 

45 INPUT P$ 

46 IF PíO"S" THEN CLS 

47 IF P$<>"S" THEN GOTO 44 

48 GOTO 41 


4 b 


(LÜ(E 



ppp; pEvAD MDNETAR I A 
DO IMOBILIZADO 


Est» programa corrige aa contas do imobilizado atra 
vés daa ORTN, pela correção direta doa saldos. Depre 
cia os bens e corrige a depreciação pelaa ORTN, con 
forma Decreto-Lei N fl 1.598 do Lnpoato de Renda. 

permite a abertura de contas sem,ou com saldo. Trina 
feraicias entre as contas, etc... Informa os valores 
que foram entrados, saldo a corrigir, coeficiente a 
plic&do, valor corrigido, bem como o.valor da corre 
çao monetária, nos diferentes mapas fornecidos. 


PP 1 


•CORRECAO HONETRRIR" 

CONTA: HOUEI5/UTEN5ILIOS 

BRLRNCO DE RBERTURR 

UALOR INICIRL. 1204-0(2 

8 AIXRS.. .. 3000(2 

TRRNSF.P/OUTRR3 

CONTAS. 2000 

TRRNSF.DE OUTRRS 

CONTRS. 0 

SALDO R CORRIGIR... 854-00 

COEFIC. APLICADO: 1.G775 


URLOR CORRIGIDO.... 174-010.84- 

UR .COR . MONETRRIA . . . 864-1Q.84- 

DIGITE ENTER 
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DIGITE: 
"D" PflRfl 
"P" PRRfl 


DEPRECIRR 

CORRECRO 


DE NGUR CONTR 


jiSHaB "DEPRECIRCRO" 
N" DE ORDEM.... 

CONTR. 


S 

MES ROUISICRO.. 

TX. DEPRECIRCRO 

UR.R DEPRECIRR. 

DEPRECIRCRO.... 

ORTN MES ROUIS. 

" OUflNT. 

" MEDIR. 

DEPRECIRCRO R 
CONTABILIZAR.. 


DIGITE ENTER 


1 

MOUEIS /UTENS IL_IG 

EíRL. . ABERTURA 
20 * / B 

120000 

24.000 

1382.OS 
17.365 

1993.92 

34-S24-. 42 


•SKT35ME1 CORRECRO DR DEPRECIRCRO 
N" DE ORDEM.... 1 

ORTN OURNT. 17.3SS 

UR. CORRIGIDO... 47463.23 

UR .ESCRITURRDO. 34624.42 

SD.DR CORRECRO. 12633.31 
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©HREM MICRON✓u.b.houino (EEfflB 


LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

LET 

DIH 


33 PRINT 
ETRONICfl" 
4-3 PRINT 
UINO“ 

4-2 PRU3E 
4- C L L> 

4-6 DIM R 
4-8 DIM B 
50 DIM C! 
52 DIM C 
54- DIM G! 
56 DIM E 
58 DIM K! 
60 DIM X 
62 DIM U 
64. PRINT 
66 INPUT 
68 
70 
0*K) 


R=PI-PI 

B=PI/PI 

C= B-rB 
D=C-fB 
E =D -f 8 
F=E + B 
G -í~ +6 
H=G + B 
I =H -t-6 
J = I+B 
K=J'+B 
L=K+B 
M=L+B 
N =M -t-B 
0=K*K 
KP=K+F 
Uf = K+K 
X í N Jt 


MICRON EL. 
OGRO B.RQ 


G*K 


R tM‘ 

B (Ní 
C $ ( N , D J 
C (N) 

Gí (N,OJ 
E <N> 

tN , D 3 
TS(N> D 3 
u iNi 
IT "RNÜ 
IT RR 


CORRECRO' 


8 LET GR = 1053 

0 IF RR>G*K TMEN LET RB=RR-CC 

)+(0*0)) 

2 IF hh>ü*K THEN GOTO 7o 

4- LET RB =Rfl 


76 LET GT-182 

78 IF RB =82 THEN GOTO 14-2 
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80 

82 

34 

36 
SS 
30 
32 
94 . 
98 
96 
100 
102 
104 . 
108 
106 
110 
112 
114 . 
116 
11S 
120 
122 
124 
126 
128 
130 
132 
134. 
13 ti 
138 
14-0 
14.2 
14 . 4 - 
14-6 
14-8 
150 

152 
154- 
156 

153 
160 
162 
164- 
166 


XF RB =81 THEN GOTO 114. 
IF RB =80 THEN GOTO 66 
GOTO 1Q14 


LET 

R (5) 

=467.63 

LET 

R (C j 

= !j 0Í5 > o o 

LET 

R (D) 

=527.14- 

LET 

R CE) 

= .*3 * 64. 

LET 

R (F) 

=566.56 

LET 

R f.G> 

=586.13 

LET 

R (H) 

= tjõ4.89 

LET 

fi (1) 

= 624- • 25 

LET 

R (J) 

= 64-4- . 23 

LET 

R CK> 

=&63.56 

LET 

R CL) 

=684- • 79 

LET 

fi(M) 

= / Õ6.7 

LET 

R (N) 

= 4-68.71 

GOTi 

D GT 


LET 

R (Bi 

= 735.5 

LET 

R ÍC) 

= T75.4.3 

LET 

Ri D) 

= íjd5 • to3 

LET 

R CE; 

=877.86 

LET 

R ÍF) 

= 9úÈ.53 

LET 

R ÍG) 

= 9toco . 36 

LET 

R (H) 

= 104-5.54. 

LET 

R ( X) 

=1108.27 

LET 

R £ü> 

=1172.55 

LET 

Rí K) 

=1239.39 

LET 

R (Li 

= 1310 - 04 

LET 

R (M) 

=1382.09 

LET 

R (N) 

= 706.7 


GOTO GT 

LET R {B) =14-s3.‘Jti 
LET RtC)=1526.65 
LET R(D)=1602.99 
LET R (E) =1683.14. 
LET R(F)=1775.71 
LET H ÍG) =le73.37 
LET R <H) =1976.4-1 
LET R(I)=2094.99 
LET fl (J) =224.1.64. 
LET RíK)=2398.55 
LET fl(L) =2506.4-5 
LET R(M>=2733.27 
LET R(N)=1382.09 




FOR P=B TO N 
i72 LET B (P) = « 
174 . LET E CP) =Ç 
176 LET C CP) — R 
178 LET D CP) =P 
180 NEXT P 
182 CLS __ 

184 LET ua = luOí5 
186 LET SG = 1030 
188 PRINT "CONTfl 

fl Í90 INPUT B$ 

192 PRINT B $ 

1Q4 FOR 0=6 TO N 
196 IF Q < > 6 THEN 
198 PRINT "HflH S 
/rriTflB K*D; 

200 INPUT U$ 

202 PRINT U$ 

204 CLS 

205 IF U$ < >"S" T 
208 IF U$<>"S“ T 
210 IF U$<> , *5" T 
212 LET-R=B 

214 PRINT 
216 PRINT "5RLDO 
i_ O URLOR “ . 


SER CQRRIGID 


INPUT B $ 

PRINT B $ 

FOR Q=6 TO N 

IF O < > B THEN GOTO 220 

PRINT '“HflH SALDO INICIRL'? 


THEN LET R=Q+B 
THEN LET Q=Q+B 
THEN GOTO 220 


INICIAL’ 


”QUA 


21S GOTO 242 

220 PRINT ** OUAL O MES“ , 

222 INPUT C$CQ) 

224 FOR S=B TO M 
226 GOSUB GS 

228 IF C$ CO) =S$ ( C (DfSi -C) 
>) THEN LET R=S+B 


230 IF C$CO)=S$CCCD*S)-C) TO D* 
5) THEN GOTO £40 
232 NEXT S 
234 LET T$=CitQí 
236 GOSUB SG 
238 GOTO 220 

240 PRINT C$tO) ; AB,“QUAL O 

JALOR" , 

242 INPÜT BCR) 
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24-4- LET XCQ.V=SCR) 

246 PRINT BíR) 

248 GOSUB GR 

250 IF E $ < > " P" THEN GOTO 254- 

252 NEXT O 

254- FOR T=B TO N 

256 IF T < > B THEN GOTO 272 

253 LET JV=B 

260 PRINT "BRIXR5 NO PERÍODO 5/ 
N“:TRB K*D; 

262 INPUT E $ 

264- PRINT E $ 

266 IF E $ < > " S" THEN GOTO 304 

266 PRINT , t "BRL.RBERTURR",,"OU 
HL O URLQR ”> 

270 GOTO 294 

272 PRINT "GUflL O MES", 

274- INPUT G $ íT> 

276 FOR S=B TO H 


TO D* 


íz. i -3 b D 5 U B G 6 

280 IP G$(T)=S$(C(D*S)-C) 

5) THEN LET UV=S+B 
26 lSfREM 

232 IF G$<TJ=5*fCCD*SJ-CJ TO D* 
5) THEN GOTO 292 
284 NEXT S 
266 LET T$=G$(T) 

268 GOSUB SG 
290 GOTO 126 
292 PRINT G$ ÍT) 

URLQR", 

294 INPUT C CUV) 

296 PRINT C <UY) 

298 GOSUB GR 
300 IF E $ < >"P” 

302 NEXT T 
304 FOR U=B TO N 
306 IF U < >B THEN 
308 LET LY=B 

310 PRINT "TRRM5F. P/OUTRRS CONT 
RS? S/N":TRB D*K; 

312 INPUT H $ 

314 PRINT H $ 

316 IF H $ < > " S *’ THEN GOTO 354 


RB ."GURL O 


THEN GOTO 304 


GOTO 322 
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»16 PRINT , , "BflL. ABERTURA “ , , "OU 
OL O UflLOR", 

300 GOTO 34-4- 

322 PRXNT "OUflL O MES ", 

324 INPUT I*CU) 

326 FOR S=B TO M 
328 GOSUB GS 

330 IF 1 $(U)=S$CCCD*S>-C) TO D. 
S) THEN LET LY=S+B 
330 IF 1$ CU) =5$ C C CB*S) -C) TO D* 
5 ) THEN GOTO 34-2 
334- NEXT O 
336 L-ET T«Ê = ISÍU) 

338 GOSUB SG 
34-0 GOTO 322 

34-2 PRINT 1$ CU) ; RB, "©URL O 
URLOR", 

34-4- INPUT DCLY) 

34-6 PRINT DCLY) 

34-8 GOSUB GR 

350 IF E$ < > "P" TfiEN GOTO 354 

352 NEXT U 

354- FOR U=B TO H 

356 IF U < > B THEN GOTO 372 

358 LET OY=B 

360 PRINT "TRRMSF.DE OUTRRS COM 
TR5? 5/N";TRB D*K; 

362 INPUT U$ 

364- PRINT U$ 

366 IF U$ < > "S" THEN GOTO 4-04- 
368 PRINT , , "BRL . RBERTURR" , , ,r OU 
RL O URLOR", 

370 GOTO 394- 

372 PRINT "©URL O HE5", 

374- INPUT K* CU) 

376 FOR S=B TO M 
378 GOSUB GS 

380 IF K$ CU) =S*C C CD*S> -C) TO D * 
S) THEN LET OY=S+B 
382 IP K$ CU) =S*CCCD*S)-C) TO D* 
S) THEN GOTO 392 
384- NEXT S 
386 LET T $ = K $ CU) 

388 GOSUB SG 
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R&^QURt- Q 


39© GOTO 372 
392 PRINT KfciU) , 

URLQR" , 

394. INPUT ECOV) 

396 PRXNT ECOY) 

398 GOSUB GR 
4.00 XF E$<J"P“ THEN GOTO 4.04 
4.02 NEXT U 
404- LET TGss448 
406 LET X=OiO 

408 IF RB =80 THEN GOTO 414 

410 IF RB=81 THEN GOTO 426 

412 IF RB =82 THEN GOTO 438 

414 LET CB = 1.5Õ78 

416 LET CP = 1.3918 

418 LET CS=1.24?4 

420 LET CT=1.1317 

422 LET COsl.0316 

424 GOTO TG 

426 LET CB=1.9557 

428 LET CP=1.772 

430 LET 05=1.4836 

432 LET CT=1.2465 

434 LET CO=1.0546 


436 GOTO TG 

438 LET CB =1.9776 

440 LET CP = 1.7889 

442 LET CS=1.5378 

444 LET CT = 1.2989 

446 LET CQ = 1.G651 _ 

448 IF B(6)=R RND CÍB>=R RND EC 
B)=R RND D<B)=R THEN'LET CB=R 
450 LET RU=R 


452 FOR S=C TO E 
454 IF B(S) <>R OR C(5 
5)<>R OR E(S)<>R THEN 


) <>R OR D C 
LET RU=B 


456 NEXT 6 


458 IF RU=R THEN LET CP«R 


460 LET RO=R 


462 FOR 3=F TO H 

464 IF B(S) <>R OR CCS)<>R^OR Dt 
S) < >R OR E(S) <>fi THEN LET RO=B 


466 NEXT S 

468 IF RO=R THEN LET CS=R 
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i7ci rKJn •wJ — • •-> n 

7 -74 .IF B CS) < >fl OR C CS) ( ; R OR DC 
<-w>R OR E CS) < >fi THEN LET RI=B 
S Í76 NEXT S 

478 XF RI=R THEN LET CT=R 

480 LET RE=R 

482 FOR S=L TO 13 

484. IF B C S ) < > R OR CCS)<>R OR DC 
S )OR OR E (S) < > R THEN LET RE = B 

436 NEXT S 

483 IF RE=R THEN LET CQ=R 

490 LET 5C=B CB) -C (BI -D CB) +E CB) 

492 LET RU=B(C)+B(D)+B(E)-C(C)- 
C (D) -C (E) -D CC) -D (D) -D CE) +E CC) +E ( 
D) +E CE) 

494. LET XR=B CF) +B CG) +B (H) -C CF) - 
C CG) -C CH) -D CF) -D CG) -D CH) +E CF) +E C 
G)+ECH) 

496 LET XT=B C I) +B C<J) +B CK) -C 11) — 
C C J) -C CK) -D CI) -D(J) -D CK) +ECI) +E( 
J)+ECK) 

498 LET RQ=BCL) +BCM) +B IN) -CCL) - 
C CM) -C CN) -D CL) -D CM) -O CH) +E CL) +E C 
M)+ECN) 

500 LET BT=BCB) +BCC) +BCD) +BCE) +■ 
B CF) +B CG) +B CH) +B Cl) +B C«J) +B C.K) +B ( 
L) +B CM) +B CN) 

502 LET TC=C CB) +C CC) +C(D) +C CE) + 
CCF) +C CG) +C CH) +C Cl) +CCÜ) +C CK) +C C 
L)+CCM)+CCN) 

504. LET DT=D (B) +D'CC) +D CD) +D CEJ + 
D CF) +D CG) +D CH) +D CI) +D C J) +-D CK) +D C 
L) +D CM) +D CN) 

506 LET ET =E (B) +E CC) -t-E CD) +E CE) + 

L ( K E m ( 5È(N) m +Etli +E tü) * EtK1 + El 

508 LET UC=BT-TC-DT+ET 

BN=INT (SCfCBfO )sO 
NBssINT CRUtCPfO) /O 
RX=XNT (XRiCStQ) 

RG=INT CXTtCTtO)/O 
OC = INT CROtCQt-O) /Q 


510 LET 
512 LET 
514 LET 
516 LET 
518 LET 
520 LET 


C F = B N+N B+RX+RG+Q C 



MftPft 1 


"••CORRECRO MO 

, , "BRLRNC 
'1* TRX 


á 1 


534- FOR Y=B TO 
536 CLS 
538 PRINT 

N ÍXo R PRINT "CONTR; 'lijk* 

54-2 IF Y=íe THEN PRINT 
O DE ABERTURA" 

54-4- IF Y=C THEN PRINT 
MrSTRE" 

5*6 IF Y=D THEN PRINT 

M 1Is R IF Y=E THEN PRINT 
MESTRE ** 

550 IF Y-F THEN PRINT 

M |Í2 R PRINT ...••‘TOTAL" 

554- IF Y=B THEN GOTO dO 0 
556 IF Y=C THEN GOTO 620 
558 IF Y=D THEN GOTO ç33 
560 IF Y=E THEN GOTO o5o 
532 IF Y = F THEN GOTO D / 4- 

Üê pSiSt õ rt f,r; "urlgr inicirl 


r ■ 


*3* 
4_« 


TKI 

TRI 

TRI 


êèè*PRINT AT H,A;"BAIXAS 


570 PRINT AT 
RS” ii "CONTAS. 

572 PRINT AT 
RAS","CONTAS. 

574- PRINT AT 
GIR . . . ** 

576 PRINT AT 
IÇADO: 

578 PRINT AT 
GIDO 

580 PRINT AT 
fÀRIA . . . 


i,r; •trrnsf.p/outr 

K *, ÀI "TRÁNSF . DE OUT 
«* . 

N*À; "SALDO R* CORRI 
K+FjAí"COEFIC• APL 
K+H,fl;"UALOR CORRI 
K+U,ft; "UR .COR.MONE 









582 PRINT ,"- 

___DIGITE ENTER" 

584. INPUT P$ 

586 NEXT V 
586 CLS 

590 PRINT “DIGITE: ••"••D"" PRR 

R DEPRECIRR",.P"“ PRRR CQRRECR 

O DE NOUR CONTR" 

592 INPUT X$ 

594- IF X $ = " D “ THEN GOTO 770 
£96 GOTO 170 
598 5TOP 
600 L.ET Kfl=B(B) 

602 LET XR =C À B) 

604- l_ET Z fl = D (B) 

606 LET Ufl=E(B) 

608 LET MR=SC 

610 LET OR=BN 

612 LET 

614 PRINT RT KF,U;CB 
616 LET T O =708 
618 GOTO TO 

620 LET Kfi=B(C) +B(Dj +BÍE) 

622 LET Xfl=C (C) +C (D) +C (E) 

624 LET 2fl=DÍC) +D(D) +D(E) 

626 LET Ufl=EÍC)+E(Di+EÍEJ 

628 LET Mfl=RU 

630 LET OR=NB 

632 LET HR=MP 

634 PRINT RT KF,U;CP 
636 GOTO TO 

638 LET Kfl=B(F)+B(G)+B(H) 

640 LET Xfl=C(F)+C(G)+C(H) 

642 LET ZR=D CF) +D ÍG) +D CH) 

644 LET Ufl=E(F)+E(G)+E(H) 

646 LET MR=XR 

648 LET QR=RX 


650 LET HR=MS 

652 PRINT RT KF,U;CS 

654 GOTO TO 

656 LET Kfl=B(I) +B(J) 4Bt'K) 
658 LET Xfl=C(I)+C(J)+C(K) 
660 LET ZR=D C I) +D (J) +D ÍK) 
662 LET Ufl=E(I)+EÍJ)+EÍK) 
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664- LET Mfi =XT 

666 LET OR=RG 

668 LET Hfl=MT 

670 PRINT RT KF , ü;CT 

572 GOTO TO 

674- l_ET KR=B (L) +B (M) +B (N) 

676 l_ET Xfl=C(L) +C(M) +CtN) 

678 l_ET ZR=D CL.) +D CM) +D CN) 

680 LET UR=E CL.) +E (M) +E (N) 

682 LET MR=RQ 

684- LET OR=QC 

686 LET HR=MO 

688 PRINT RT KF,U;CQ 

690 GOTO TO 

692 LET KR =BT 

694- LET XR=TC 

696 LET ZR=DT 

698 LET UR=ET 

700 LET Mfl=UC 

702 LET OR=CF 

704. LET HR=MU 

706 PRINT RT KF /U; "HHBB ' 
708 GOSUB 726 
710 PRINT RT F,U;Li 
712 PRINT RT H.. U.;M$ 

714. PRINT RT J, UjNi 

716 PRINT RT L,U;Q$ 

718 PRINT RT N,U;P1 
720 PRINT RT K +H,U; O $ 

722 PRINT RT K+J,ÜJ Rí 
724- GOTO 566 „ 

7§0 LET t$ S CN-KK S TO*M?=STR$ 

?ÍI LET XX=LEN STRt XR 
736 LET MÍÍN-XX TO M)=STRÍ 
738 LET N $ = ” " 

74-0 LET ZZ=LEN STR$ ZR 
74-2 LET Ni CN-ZZ TO M) =STR$ 
74-4- LET 0$ = " ^ 

74-6 LET UU=LEN STR t tJR _ 

74-8 LET Oi CN-UU TO M) =oTR$ 
750 LET P$=" 


KR 

Xfl 

ZR 

UR 
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_cr 2 LET mm=len strí mr 

4ÍÍ LET P $ (N —MM TO M)=STR$ MR 

les LET Q$=“ 

Z%3 LET 00=LEN STR$ OR 

7!! LET 0$(N-00 TO M)=STR$ OR 

Z%Í lIt HH=LEN 5TR$ Hfl 

766 LET R$(N-HH TO M)=STR* HR 

771 PRINT*,,,,"TRXR DE DEPRECXR 
CRO RNUflL ", 

772 INPUT TP 
774. FOR 2 = B TO O 
776 CL5 

773 GOSUB 1088 

A30 IF Z=N+B THEN GOTO 092 
782 FOR S=B TO M 
784- GOsUB GS 

736 XF C$ (Z) =5$ ( C (D*S> -C) TO D* 
SI THEN GOTO 700 
~738 NEXT S 
700 LET GG=N-S 
-»q^ R E M 

792 LET TT = INT ( C (TP/M) *GG) *Q) / 


n 


704 . IF TT = R THEN LET TT=TP 

796 IF TT =fi THEN GOTO 800 

798 LET DP = INT t (X(Z) tTT/O) íO) / 


300 CLS 
302 PRINT 


MRPA Q 


"DEPRECIRCRO 


304- GOSUB 1092 

806 PRINT ,,"N* DE ORDEM..*. 
308 GOSUB Í0S3 

810 PRINT , ,"CONTR..... 


t 

312 IF Z < > B THEN 
814- PRINT , , '*MES 
BRL . RBERTURR'* 

316 GOTO 824. 

318 PRINT ,,"ME5 
S ÍZ) ; "s "; RB 
320 IF 0$ f 2) =■’ 


GOTO 818 
ROUISXCRO.. 

ROUISICRO.. 
" THEN Cl_5 


it 


,Z 


• * »• 
* 


11 


>C 





822 

2 

624 
T; " 1 
826 
828 
830 

$ 

832 

634 

836 

* 

338 

840 

842 

344 

346 

848 

850 

852 

854 

856 

858 

860 

662 

864 

866 

868 

870 

S 

875 

874 

376 

378 

% 

88 0 
882 
884 
R CF) 
L) +R 
886 
868 
390 
892 


XF C*(Z)=" “ TMEN GOTO 99 

PRINT , , *TX . DEPRECIRCflO 1 ' ,T 

LET KR=X(Z) 

GOSUB 1048 

PRINT , , M UR.R DEPRECIRR • , L 

LET OR =DP 
GOSUB 1056 

PRINT , , "DEPRECIRCflO • H 


IF 

5 = 6 

THEN 

LET 

QX=R CB) 

IF 

S=C 

THEN 

LET 

GX=R(C) 

IF 

S=D 

THEN 

LET 

OX=RCD) 

IF 

S=E 

THEN 

LET 

OX=R(E) 

IF 

S = F 

THEN 

LET 

OXxPCF) 

IF 

S=G 

THEN 

LET 

OX=RCG) 

IF 

S=H 

THEN 

LET 

OX=R CH) 

IF 

S = I 

THEN 

LET 

OX=R(I) 

IF 

5=U 

THEN 

LET 

OX=R(U) 

IF 

S=K 

THEN 

LET 

GX=RCK) 

IF 

S=L 

THEN 

LET 

OX=RCL) 

IF 

S=M 

THEN 

LET 

OX=RCM) 

IF 

S=N 

THEN 

LET 

ÜX=RCN) 


XF Z<>B THEN GOTO 874 
LET RZ=RCN) 

GOSUB 1064 

PRINT , j “ORTN MES ROUIS. u ,N 

GOTO 880 
LET RZ=R(5) 

GOSUB 1064 

PRINT i > "ORTN MES RQUIS.^N 

LET OU = INT ( (DP/OX) *X) /X 

PRINT .* QURNT --- ,OU 

LET HM=R(B) +R (C) +R(D) +R(E) + 
+R CG) +R (H) +R Cl) +R CU) +R CK) +R C 
CM) 

LET UR=H!i-R CB) 

LET UB=UR-fl(C) 

LET UC=UB-R(D) 

LET UD=ÜC-R(E) 
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«94- LET UE=UD —R 
ill LET UF=UE—fi 
698 LET UG=UF-fi 
900 LET WH=UG-R 
902 LET UI=UH—R 
904. LET UJ = UI-fl 
906 LET UK=UJ-R 
908 LET UL=UK-R 
910 IF S=N OR 5 
kit (HM/H*Q) /O 
912 XF S=C THEN 
i *0)/O 

914- IF S=D THEN 
K*0)/O 

916 XF S=E THEN 
0*0) /O 

918 IF S=F THEN 
1 * 0 )/O 

920 IF S=G THEN 
H*0 )/O 

922 IF 5=H THEN 
G*0 )/Q 

924- IF 5 = 1 THEN 
F *0) /O 

926 IF S=J THEN 


CF) 

(G) 

CH) 

Cl) 

C J) 

(K) 

(L) 

CM) 

=B THEN 
LET RO 
LET RO 
LET RO 
LET RO 
LET RO 
LET RO 
LET RO 
LET RO = 


LET 

TNT 

INT 

INT 

INT 

INT 

INT 

INT 

INT 


RO = I 
(UR/ 
CUB/ 
CUC/ 
CUD/ 
(UE/ 
CUF / 
CUG/ 
C UH / 


E*0)/O 


928 

D*0) 

IF 

/O 

S=K 

THEN 

LET 

RO = INT 

lül/ 

930 

C*G* 

IF 

/O 

S=L 

THEN 

LET 

RO = INT 

C Uü/ 

932 

B^O) 

IF 

/O 

S=M 

THEN 

LET 

RO=INT 

(UK/ 

934. 

LET 

ZO 

= RO 





936 GOSUB 1072 

938 PRINT " MEDIR.. “,0$ 

94-0 LET DC = INT C <RO*QU) 40) /O 
94-2 LET ZX =DC 
94-4- GOSUB 1080 

94-6 PRINT "DEPRECIRCRQ R” , , M CO 
NTRBILIZRR..",P$ 

94-S PRINT “- 


950 INPUT 
952 CL5 


-DIGITE ENTER” 
Pí 
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954- PRINT " ISMafeMB CORRECRQ DR D 

EPRECIflCflO" 

q cr cr pPH 

956 GOSUB 1092 

958 PRINT , > "N" DE ORDEM »»•«*'; Z 

960 GOSUB 10SS 

962 PRINT , ,' # ORTN OURNT.*' > O 

U 

964. LET UR=INT C FOU^R (M) ) *0) /O 
966 LET RZ=UR 

963 GOSUB 1064. 

970 PRINT , , "UR . CORRIGIDO ... 11 

* 

^972 LET ZO =DC 

974- GOSUB 1072 

976 PRINT , /‘URaESCRITURfiDO. 11 

$ 

978 LET ZX=UR-DC 
930 GOSUB 1030 

962 PRINT , / "SD . DR CORRECRO . , P 

$ 

984 PRINT “- 


-*■ ; RT K+K^R; “DIGITE E 

NTER M 

936 INPUT P$ 

938 GOSUB 1092 
990 NEXT Z 

992 PRINT RT U , R ; “DIGITE 
PRRR NOUOS CRLCULOS DIGITE “"N" 
*• PRRR TERMINRR" 

994 INPUT P$ 

996 IF _ P $ = ** S " THEN GOTO 170 

1090 pRtnt rt k,h; -ffiaamSEKXSH 




1992 PRINT RT 


ICULOS^jl 


1004. PRINT RT 

HEXXSSXr 


L,H; 


^FIM DOS CRL 


m , h; 


1006 STOP 

1008 LET S$="JRNFEUNRRRBRMRIJUNJ 
ULRGOSETTOUTNOUDEZ " 

1O10 RETURN 
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1048 LET !_$ = '” 

1050 LET KK=LEN 5TR$ KR 
1052 LET L$(N-KK TO M)=STR$ KR 
1054- RETURN 
1056 LET M$=" 

1058 LET QK=LEN 5TR$ OR 
1060 LET M$(N-OK TO M)=STR$ OR 
1062 RETURN 
1064. LET N$ = " 

1066 LET RK=LEN STR$ RZ 
1068 LET Ní(N-RK TO M)=STR$ RZ 
1070 RETURN 
1072 LET 0$=” 

1074 LET BX =LEN 5TR$ ZO 


1076 

1078 

1030 

1082 

1034- 

1036 

1038 

1090 

1092 
1094- 
1096 

1093 
1100 


LET 0$(N-BX TO H)=STR$ ZO 
RETURN m 

LET NX=LEN STR* 2X 

LET P$ (N — N X TO M) =STR* ZX 

>“S" THEN LET Z=Z+B 

lp T U$ r < > “S" THEN LET Z=Z-B 
RETURN 

SRUE "CORRECRgT 


RUN 
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^TUALIZAÇAD DO IARA 
PARA RECDLHINENTD 


0 programa corrige as constribuiçõea do I.A.P.A.S,, 
fornecendo Juroa, multa e valores a recolher, desde 
que fornecido o índice da correção, do mea em débito. 


ESTE PROGRAMA FAZ ATUALIZACOES 
PARA RECOLHIMENTO DO CARNET DO 
I.A.P.A.S. A PARTIR DE JflN/75. 

PARA TANTO, DIGITE O MES SEMPRE 
Drt FORMA: "MMh/flfl" 

POR EX.: JflN/83 


DIGITE < NEU LINE> 


QUAL O 1" MES A CALCULAR 
MRR/80 

QUAL EH Ü MES DO RECOLHIMENTO 


J AN / S 3 


DIGITE < 0 > PARA TAXA IGUAL AO DO 
H=.S ANTERIOR OU <P> QUANDO A TA¬ 
XA FOR “ZERO". 

DIGITE TAXA DA COR.MONETARIA DO 
MES DE: 

MAR/30 506.3 
ASR,-'S0 505.3 
MAI,'S0 


DIGITE 
DO MES 
NAO HAH 
DIG IT E 
MhR ,'30 
BpR,-30 


< O > P h R 
HNTcRIOR 
UhLDR . 
UP.LGR DO 


R 


URLOR 

OU 

r!E5 ^ 

^ 3 4- d 


IGUhL RO 
QURNDO 
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MES CONTRIB. 

CONTRIB. 

JUROS 33* / ■ 
MULTRS 50 */ m 
CORR.HONETflRIfi. 
506.3* ii 

T.MULTRS 

T.GERRL 


MflR/80 

234-0 

4-632 

7094- 

1184-7 

23fe23 

25963 


DIGITE <NEU L xNt > 


CÁLCULOS terminrdos 

PRRR NOUOS CÁLCULOS, DIGITE "N" 
N 

QUAL Ü 1* MES P: CRLCDLRR 
MRRCO/80 


UERIFIOUE SUHS hNU iRCuES < MtS NRÜ 

ENCONTRRDO _ 

HE5 DIGITADO MhklO/ow 


DIGITE <NEU LIME > 
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a 


0 PEM MIQRON/J.B.ROUINO 


1 L_ET U=PI/PI 

2 LET Z=PI-PI 

3 LET E=U+U 
4 - LET K=E + U 

5 l_ET U= CE+K) iE 

6 LET Y=U*U 

7 FOR X=U TO K 

6 PRINT RT U),E*E;“REM MICRON 

EUETRONICR" 

9 PRINT RT U+U,EiE;"REM OORO 

B flOUINQ" 

10 PAUSE 60 

11 CLS 

12 PRUSE 60 

13 NEXT X 

14- CLS 

IS PRINT RT K + E,Z; "ESTE PRQGRR 
MR FRZ RTURLIZRCOES PRRR RECOLH 
IMENTQ DO CRRNET DO I.R.P.fl.S. 


16 PRINT "A PARTIR DE JPIN/75.'' 

j j *"PRRR TRNTO, DIGITE O MES SEM 
PRE DR FORMR : ‘"'MHH/flfl'. 

17 PRINT "POR EX.: üflN/83",, 

DIGITE < NEU L INE > ** 

18 INPUT P$ 

19 CLS 

20 LET CC=Z 

21 LET BB=Z 

22 PRINT "OURL O 1* MES R CRLC 
ULRR" 

23. INPUT R$ 

24. PRINT Aí 

25 LET BR =Z 

26 GOSUB 28 

27 LET BR=U 

28 FOR P=U TO U+E 

29 LET M$="URNFEUMRRRBRMRIJUN 
ULRGOSETOUTNQUDEZ" 

30 LET N$="X" 

31 FOR Ü=U TO U-U 

32 LET 0 $ = ** 757677737980813283*' 
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33 LET LÍ=MÍ ( ( CP-U) *K+U) TO (P 
**^ 34 . l_ET T$=0$ t i (O-U) *E+U) TQ (Q 
* E 35 IF L$+Nt+T$=fl$ THEN GOTO 4-4- 


36 NEXT O 

37 NEXT P 

39 PRINT RT U.Zi“UERIFIQUE SUR 
5 RNOTRCOES'ME5'NROENCQNTRRDQ 
4-0 PRINT “MES DIGITRw/O ig* 

4-1 PRINT DIGITE <Ni_U l_ I 

NE > " 

4-2 INPUT Pí 

4-3 GOTO 19 _ 

4-4- IF BR =2 THEN LET H=P 

4-5 IF BR=U THEN GOTO 51 

4-6 LET H=Ü*Y+M 
4-7 LET J$=T$ 

4-8 PRINT "OUflL EH Ü MES DO REC 
OLHI MENTO" 

49 INPUT Rí 

50 RETURN 

51 LET 0=14-P 

52 LET GT = 31 

53 FOR X=U TO U+E 

54 IF H — X =Y THEN GOTO &4 

55 IF H-X=Y*E THEN GOTO ob 

56 IF H-X=Y*K THEN GOTO t>3 

57 IF H-X=4G0 THEN GüTO 70 

58 IF H —X =500 THEN GOTO 72 

59 IF H —X =600 THEN GOTO 74 

60 IF H —X =700 THEN GOTO 7to 

61 IF H-X =800 THEN GOTO 73 

62 IF H —X =900 THEN GOTO 80 


63 NEXT X 

64 LET 5=109-X 

65 GOTO GT 

66 LET S =Y —K —X 

67 GOTO GT 

t> 5 L ET 5 —35 “X 

69 GOTO GT 

70 LET S =73-X 
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71 

72 

73 
74. 

75 

76 

77 

78 

79 
oâ 
81 
82 
83 
84- 
85 
36 
87 

38 

39 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 
107 
103 

E+E) 

109 

ÍK+E 


GOTO GT 
LET S =61—X 
GOTO GT 
LET S =49-X 
GOTO GT 
LET S=37-X; 

GOTO GT 
LET S =25-X 
GOTO GT 
LET S=U+K-X 
REM 
LET 5=5-0 
DIM XCS+M+Ü) 

DIM Z(S+M) 

DIM G$(5+U+E+M,K) 
DIM Z$ (S+M,K*E) 

DIM K (S+M) 

DIM U (S+M) 

DIM F)CS+M) 

DIM E(S+M) 

DIM F CS+M) 

DIM G(S+M) 

DIM L(S+M) 

DIM T (S+M+U) 

LET X (S+M) =Z 
REM TflXfl DE JUROS 
FOR J=S+M-U TO M S 
LET X (J) =X (J+U) -U 
NEXT J 

FOR L=M TO S+M-U 
LET T (L) =X (L) *-U 
NEXT L 

REM TfiXfl DE MULTRS 
FOR X=M TO S+M 
IF T(X)=U THEN LET 
IF T(X)=E THEN LET 
IF T(X)=K THEN LET 
IF T CX) =E+E THEN L 


TEP -U 


IF T CX) =E+E n 
*U 

IF T(X) > =K+E 
) *U 


THEN 


Z CX) =U 
Z CX) =U+U 
Z CX) =K *U 

rr z c x) a i 

.ET Z CX) = 


110 NEXT X 

111 REM TflXfl DE CQR.MONETflRIfi 

112 LET BB=Z 
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113 GOSUB 115 
114- GOTO 119 


115 CL-S 

116 PRINT "DIGITE <0> PRRR TRXR 
IGURL RO DOMES RNTERIOR OU <P> 

QURNDO R TR-XR FOR ""ZERO""." 

117 PRINT "DIGITE TRXR DR COR.M 
ONETRRIR DO MES DE:" 

118 RETURN 

119 FOR L=M TO S+M 

12© GOSUB 132 _ _ ât= „ 

121 IF G$(L)="JRN" THEN GOaUB 1 


15 

122 PRINT Zí tL) , 

123 INPUT Kí 

124- IF Kí = "0" THEN GOTO lü3 

125 IF K$="P" THEN GOTO 153 

126 l_ET KÍL)=URL Kí 

127 GOTO 129 


128 l_ET KÍL)=KÍL-U) 


129 

130 

131 

132 

133 
134- 

135 

136 

137 

138 

139 
14-0 
14.1 
14-2 
14-3 
14-4. 
14.5 
14-6 
14-7 
14-8 


PRINT K(L) 

NEXT L 
GOTO 153 

FOR C=U TO S+M 3TEP U+E 


LET G$(C)="URN" 

LET Gí(C+U)="FEU” 
LET Gí(C+E)="M hR“ 
LET G$(C+K) 

LET Gí(C+E+E)="MRI“ 
LET Gí(C+E+K)="JUN" 
LET Gí (C+E+K) ="JUL“ 
LET Gí CC+U-K) ="fluO" 
LET GíÍC+U-E)="SET" 
LET G$ (C + KiK) ='*OUT" 
LET Gí(C+U)="NOU" 
LET Gí (C+U+U) ="DEZ" 


MEXT C 

IF BB=U THEN GOTO 14-8 


LET B=URL Jí 
IF GíCL+U)=”JRN“ 


THEN 


GOTO 


150 

14-9 GOTO 151 
150 LET CC=Z 
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1 


_1S1 

’lil Íet C cc=ü™ EN LeT b=b+u 

JL54. LET K$=STR$ B 

155 LET Z$ CL) =G$ Cl_) +N£+K% 

156 LET BB=U * +N5+K.S 

157 RETURN 
153 CLS 

III lIt |gI 5 fiDrt DE ENTRfiDfla 

161 G05UB 163 

162 GOTO 167 

163 CLS 

164- PRXNT ” DIGITE <©'• papo ii Q . 
ÜR IGURL RO DO MES fiNTERIGR Qm RL 
<?> UflLQR?" ° U 

165 PRINT "DIGITE URLOR DO MES: 


IF <3$ CL) < > "«JRN“ THEN GOTO 


B=B+U 


166 

167 

163 

169 

170 
63 

171 

172 

173 
174- 

175 

176 

177 

178 

179 

180 
181 
182 
183 
184- 

100 ) / 
1S5 
136 
187 
+ 1 


RETURN 
LET CC=Z 
FOR L=M TO S+M 
GOSUB 132 

IF G$ CL) —"«JRN" TMEN GOSUB 1 

PRINT Z$CL), 

INPUT U$ 

í= THEN GOTO 177 

f " THEN GOTO 180 
LET UCL)=URL U$ 

GOTO 17S 

LET U CL) =UCL-U) 

PRINT UCL) 

NEXT L 

REM CRLCULOS 

Q | g 

ÇgR.LsM TO S+M 

l I ^_ U fL) =Z THEN GOTO 211 

100 R = INT ( CL) *KCL) *100) ✓ 

LET D=fl-INT R 
LET fl CL) =INT fi 

IF D>=.5 THEN LET RCL)=R(L) 
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ii? «Cl.» =«n-> 

+ 188 IF T (L)+0<=51 THEN GOTO 191 


189 LET R = XNT ( (U CL) *T (L) *Y) /Y) 
,'Y 

190 GOTO 192 

191 LET R = INT ( ( (UiL)+fl(L) ) *TiL 
) *Y) /Y) /Y 

192 LET D =R - INT R 

193 LET E(L)=INT R 

194- XF D > = .5 THEN LET EÍL)=E(L> 


+ 1 

195 LET R = INT 


( i ÍU CL) +R CL) ) *Z (L 


) *Y) /Y) /Y 

196 LET D =fl — INT R 

197 LET F(L)=INT R 

198 IF D>=.5 THEN LET 


F CL) =F (L) 


199 PR INT “MES CONTRItJ . " , 2$ (L) 

200 PR INT , /'CuNTRIB." ,IU'U 

201 PRINT "OUROS ” ; T iL) ; **■ / m iE 

(L) „ 

202 PRINT "MULTAS “;Z<D; */■ / 

F (L) 

203 PRINT "CORR.MONETARIA. 

£04- PRINT K (L) R ÍL) 

205 LET G (L) =E (L) +F ÍL) +A(L) 

206 LET L(L)=U(L)+G(L) 

207 PRINT , /‘T.MULTAS" ,G(U 

208 PRINT , , "T.GERRL", L(LJ 

209 PRINT , /'DIGITE <NEU LINE)" 

210 INPUT P$ 

211 CLS 

212 NEXT L 

213 PRINT RT 5 ; Zj"CÁLCULOS TERM 
INRDOS" 

214- PRINT , , "PARA NOUÜS CRLCULO 
5, DIGITE ""N. 

215 INPUT P$ 

216 CLS 

217 IF P$="N“ THEN RUM 

21S STOP 

£19 PRINT PEEK. 16396+256iPEEK 1 

6397 -16539 
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j^DNTAB a recebcr 

uiva até cem contas com número, sacado,data de emia 
« agente cobrador, data de vencimento e valor. Lis 
ta o arquivo todo, ou por aacado, ou por data(s) de 
encimento, ou as contaa a pagar, sempre apresentando 
09 totais. Pode-se inserir, alterar, quitar ou apagar 
a3 contaa do arquivo. 

_ te programa vem sendo comercializado em cassette, pe 
la Micron Eletrônica Cum. Ind. Ltda. desde agosto de 
1982. 

CONTROLE CONTR5 R RECEBER 


PRRR 


DIGITE 


üROUIUPR CONTfib 1 
QÜ ITRR/EL IMINRR 2 
LlSTRR CONTRS: 


EM GERRL 3 
PS SRCRDO 4- 
PS DRTRo 5 
ps 5RUE 

PS RECEBIDO O 


3 


N 1 SRChDO uctq , 


01 .-BS TENECO EN 
02/B2 SUPERKITH 
03/33 SQNIBELL 
04-/82 SUPERPLRS 
05/82 HETRLCIR 
06/32 RCOLEUE 
07/82 SUPERBRRS 
08/82 TENECO EN 
09/82 RUES COMP 
10/82 EXTRRDE 
11/82 RLLIMfl 
12/82 MICRORCEH 
13/S2 REDE TU 
14-/82 SUPERPLRS 
16/82 TENECO EN 
17/82 TENECO EN 
18/82 RUIPLRS 
19/82 CREDISUPE 
20/82 SUPERPLRS 
21/82 RRDIO TRU 


820000 

820000 

821030 

821030 

821107 

321107 

821107 

821020 

820000 

821114- 

821114- 

821120 

821120 

821122 

321125 

821125 

821123 

821129 

820000 

821127 


$PRGO 
ÍPRGO 
$30000 
$66500 
$21000 
$ 14-000 
$12000 
$14-000 
$PRGO 
$24-000 
$23000 
$24-800 
$12000 
$14-000 
$31500 
$69600 
$12000 
$14-000 
$PRGO 
$84-00 


CONTROLE CONTRS R RECEBER 


PRRR 


DIGITE 


RRQUIURR CONTRS 
OUITRR/ELIMINRR 
L.ISTRR CONTRS: 
EH GERftL 
p/ 5RCRDO 
PS DRTRS 
PS SRUE 
PS RECEBIDO 


1 

2 

3 

4- 

5 

6 
0 


4- 


QUAL o srcrdo? 


SUPERSOPTE 

total r receber 

TOTAL RECEBIDO 


$ 0 
$ 0 


OURL O SACADO? 
TENECO ENG 


DOC . 
DRTR 


N" E TIPO 
COBRROOR 


SRCRDO 
UCTO . 


URLOR 


01/82 

23SET 

PRGO 

TENECO 

820000 

ENG 

$1200 

08/82 

06OUT 

UNIBRNCO 

TENECO 

821020 

ENG 

$ 14-000 

16/82 

250UT 

UNIBRNCO 

TENECO 

821125 

ENG 

$31500 

17/82 

2SOUT 

UNIBRNCO 

TENECO 

821125 

ENG 

$89600 

TOTAL 

TOTRL 

R RECEBER 
RECEBIDO 

$ 115100 

$ 1200 

DIGITE ENTER 
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ELETRÔNICA 

15) 

15) 

15) 


D <N> =0 THEN G 


10 REM MICRON 
20 DIM D*(100 
30 DIM 5*(100 
4-0 DIM E$ (100 
50 DIM 0(100) 

60 DIM D(100) 

65 LET R =4-200 
70 DIM P$(100) 

75 LET Z =59 
80 LET B =3200 
GOTO 5000 
100 FOR N=1 TO Z 
102 IF U(N)=0 RND 
OTO 110 
104- NEXT N 
108 GOTO 5000 

110 PRINT "DIGITE N" E TIPO DO 
DOCUMENTO", 

120 INPUT D$ÍN) 

130 PRINT D$ (N) 

14.0 PRINT "SRCflDO 
150 INPUT S$(N) 

160 PRINT Sá» í N) _ __ 

«70 PRINT "DRTR EMIsSflO E AuENT 
E COBRADOR" 

180 INPUT E$(N) 

PRINT E$ÍN) 

PRINT “DRTR DE UCTO. ANO 

DIA" 

INPUT 
PRINT 
PRINT 
INPUT 
PRINT 

PRINT , --- . ..._ 

PRINT "ERRO","E","OK","OK’ 
INPUT 
CLS 

IF Q$=“E" THEN GOTO 110 
GOTO 5000 

PRINT "DIGITE N* DO DOCUMEN 


190 
200 
HE5 
210 
220 
230 
240 
250 
260 
270 
260 
285 
290 
295 
500 
TO : • 
510 
512 


í 


D (N) 

D ÍNÍ 
“UfiLOR 
U (N) 

U (N) 

, , -DIGITE 
"ERRO”>“E* 


INPUT 

PRINT 


0 $ 

0 $ 



52® LET C =LEN u $ 
53® FOR N = 1 TO Z 
54-0 IF (Dí CNJ ( TO 


C )) =Q$ THEN 


G 


OTO 58® 

550 NEXT N 
580 PRXNT “NRO 
570 GOTO 5001 


ENCONTREI" 


580 PRXNT 
582 PRXNT 
584- PRINT 
586 PRINT 
500 PRINT 


“DOO . N* " ; 0$ <N> 
"SRCRDÜ :“;8$(N) 
"UCTO.:";D<N> 
"ESTRH Phgu :• S/N?" 


610 INPUT X $ 
615 IF X $ = " 5 " 


THEN LET P*(N)="1 


530 PRINT "ELIMINA? 


64.0 INPUT Q$ 
650 IF Q$ < >"S" 
652 LET D$(N)= 
654- LET S$(N) = 
656 LET E$ ÍN3 = 
658 LET D CN) =0 
660 LET U(N)=0 
670 LET P$ (N) = 


THEN 


S/N" 

GOTO 


700 

1000 

1010 

1012 

1020 

1070 

1500 


GOTO 5000 

G05UB 6000 

FOR N = 1 TO Z 

IF U(N)=0 THEN NEaT 

GOSUB 6010 

GOTO 3300 _ 

PRINT “OUHL O 5HCRDQ 


700 


1510 

1520 

1530 

154-0 

1550 


INPUT R$ 

LET 5 =LEN R $ 
GOSUB R 
FOR N=1 TO Z 
IF (5$ (N) C TO 


5 ) ) 


)R$ THEN 


NEXT N 

1560 GOSUB B 

1570 NEXT N 

1580 GOTO 3300 

2000 PRINT "DE OUE DflTfl: , 

2010 INPUT U 

2012 PRINT U 

2020 PRINT "RTEH QUE DATA?", 


it, 



2020 

2030 

2032 

204-0 

2000 

20o2 

u, 

2070 
2090 
XT N 
2100 
2110 
2112 
2120 
2500 
2510 
2S20 
2530 
i TO 
254-0 
2550 
2560 
2570 


PRINT "RTEH QUE DRTR'?", 
INPUT U 
PRINT U 
CL-3 

GOSUB 600© 

PRINT RT 1,0;“DE “;U,"RTEH 
FOR N=1 TO Z 

IF D(N) <U OR D(N) >U THEN NE 

GOSUB 6014. 

NEXT N 

PRINT "DE ";U,"RTEH 
GOTO 3300 
GOSUB 6000 
FOR N = 1 TO Z 

IF P$CN)<>"1“ THEN NEXT N 
PRINT (D$(N)( TO 6)); CS$CN) 
9) ) ,D(N);" $ u(N) 

LET P=P+U ÍN) 

NEXT N 
PRINT 

PRINT , , "TOTRL RECEBIDO 


2530 PRINT ,,"DIGITE 
2590 INPUT L$ 

2600 GOTO 5000 „ 

3000 SRUE "CONTRS" 


ENTER' 


3010 GOTO 5000 

3200 IF N >100 THEN RETURN 

3202 IF UCN)=0 AND D(N)=© OR 


N > 1 


00 THEN RETURN > , 

3203 IF P$CN)="1” THEN LET E$ CN) 


(6 TO 15)=" PRGO" 


3205 PRINT D$CN),S*CN) 

3210 PRINT E$ CN),DCN);" $";U(N) 

3220 PRINT 

3230 IF P $ (N) < >"1“ THEN LET T=T + 
V CN) 

3232 IF P$CN)="1" THEN LET P=P+U 
CN) 


324-0 RETURN 
3300 PRINT 
3310 REM 


77 



• • . 


3330 

T 

3332 

P 

334.0 

3350 

3370 

4-200 

RDO" , 

R" 

4-210 

4-230 

5000 

5002 

5003 
5005 
RS R 
5010 
5030 
503S 
504-0 
5050 
5055 
5050 
5070 
5080 
5090 
5100 
5105 
5107 
5110 
5120 
5130 
514-0 
5160 
5170 
5180 
5190 
6000 


PRINT "TOTRL r receber 
PRXNT "TOTRL. RECEBIDO 


$ 


PRINT ,,"DIGITE ENTER" 

INPUT Lí 
GOTO 5000 

PRINT "DOC. N" E TIPO","SRC 
"DRTR COBRRDOR" * "UCTO. URLO 

PRINT 

RETURN 

CLS 

LET T =0 
LET P =0 

PRINT RT 8.4.: "CONTROLE CONT 
RECEBER" 

PRINT 

PRINT "PRRR" , "DIGITE" 

DD TNT 

PRINT "RRQUIURR CONTRS"/"l" 
PRINT "QUITRR/ELIMINRR","2" 
PRINT "LISTAR CONTRS:" 
PRINT 1 "EM GERRL" # "3“ 

PRINT "Ps SACADO".4 
PRINT "Ps DRTA5”,"5 
PRINT "Ps SRUE6 
PRINT "PS RECEBIDO”, 0 
INPUT K 
CLS 

IF K=1 THEN GOTO 100 
IF K=2 THEN GOTO 500 
XF K=3 THEN GOTO 1000 

IF K=4- THEN GOTO 1500 

XF K=5 THEN GOTO 2000 

IF K=6 THEN GOTO 3000 

IF K =0 THEN GOTO 2500 

GOTO 5000. 

PRINT 



6002 PRINT 

6003 RETURN - tíM , 

6014- PRINT (D$(N)C TO 6) ) , (5$(N) 
( TO 9) ) D (N) ; " 



THEN GOTO 6030 


6020 

6022 

6024- 

6026 

6030 

GO" 

604-0 

6060 

6070 

7000 

7010 

7015 

7020 

7030 


IF P$(N)=“1" 

LET T=T+U(N) 

PRINT UCN) 

GOTO 604-2 
IF P$(N)=”1" THEN PRINT "PR 

LET P=P+UCN) 

NEXT N 
RETURN 

FOR N = 1 TO 4.0 
INPUT K$ 

LET S$(N)=K$ 

PRINT S$CN) 

NEXT N 


JIIPORTANTE: 

THíite a data na forma: 

1AMMDD 
Exemplo: 

Ut de dezembro de 1982. Digite: 

821201 

Esta forma de arquivar datas oferece grandes vantagens 
na procura e comparação das mesmas. 
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CADASTRO DE CLIENTE^ 


CRDRSTRO DE CLIENTES 


NQUO RRQUIUO DIGITE O 

PROCURR 

9/ NOME i 

P.' DRDOS 1 2 

LISTRR NOMES 3 

P/ RLTERRCOES 4- 

CONT. RRQUIUO S 

9/ SRUE 6 


QTflS. FICHRS ? 100 

OTRS. LETRRS POR NOME? 
9/ DRDOS 1? 16 
9/ DRDOS 2? 


32 


OTRS. FICHRS 7 100 

OTRS. LETRRS POR NOME? 32 
9/ DRDOS 1? 16 
9/ DRDOS 2? 16 


MEMORIR INSTRLRDR 
16384- BYTES 

MEMORIR DISPONIUEL 
124-03 BYTES 

RRQUIUO SOLICrTRDO 
64-03 BYTES 

OK 

DIGITE NEU LINE 
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1 REM MICRON ELETRÔNICA 

2 PRXNT >,,, 

3 LET N =0 

4 GOTO 4-4- 

5 Cl_S 

6 CLERft 

7 PRINT "QTRS. FICHAS 7 ” ; 

8 INPUT N 

9 PRXNT N 

10 PRINT "OTAS. LETRAS POR NOn 


11 

XNPUT 

z 


12 

PRXNT 

z 


13 

PRXNT 

••P/ DRDOS 

1 

14. 

XNPUT 

E 


15 

PRXNT 

E 


16 

PRINT 

**P/ DhDOs 

2 

17 

INPUT 

D 


18 

PRINT 

D 


19 

GOSUB 

105 


20 

DIM R $ (N,Z) 


21 

DIM D$(N,E> 


22 

DIM B$(N,D) 


23 

FOR Y 

= 1 TO N 


24 

PRINT 

"PfiRR PARAR 


"DIGITE FIM" 
25 PRINT , 


, ,“wUAL O” 


AROU IUO '* , 
; V ; "* NOM 


E' 7 '" 

26 PRINT "EM ";Z;" LETRAS" 

27 INPUT R $ (V) 

28 IF R$(Y , TO 3) < >"FIM" THEN 
GOTO 31 


29 

30 

31 

32 

33 
34. 
35 
35 

37 

38 

39 
4-0 


REM 

GOTO 4-2 
PRINT fií(Y) 

PRINT , /'DIGITE DRDOS_1" 
PRINT "EM ";E;" LETRAS" 
INPUT B*CY) 

PRINT B$(Y) 

PRINT 

PRINT "DIGITE DRDOS 2" 
PRINT "EM ";d;" LETRAS" 
INPUT D $ (Y) 

CLS 


SI 



4-1 NEXT V 
4-2 CLS 

4-3 PRINT "OK, fiROUIUO FEITO" 

4-4- PRINT "CADASTRO DE CLIENTES 

4-5 PRINT , , , , 

4-6 PRINT "NOUO AROUIUO" , “DIGri 
E 0” 

4-7 PRINT , /'PROCURA" 

4-8 PRINT "P/* NOME"/' 1" 

49 PRINT •*P/' DADOS 1** , •* 

2 " 

50 PRINT 

51 PRINT "LISTAR NOMES"," 

3" 

52 PRINT ,,"P/ ALTERAÇÕES"," 

4" 

53 PRINT “CCNT. AROUIUO"," 

5" 

54 PRINT ,,"Pr 5AUE"," G 

55 INPUT P 

56 IF P<>0 AND N=0 THEN GOTO 1 

35 

57 IF P<0 OR P>6 THEN GOTO 54 

58 CLS 

59 IF P = 3 THEN GOTO 120 

60 IF P=6 THEN GOTO 141 

61 IF P =2 THEN GOTO 66 

62 IF P=1 THEN GOTO 31 

63 IF P=0 THEN GOTO 5 

64 IF P=4 THEN GOTO 143 

65 GOTO 173 

66 PRINT "DIGITE DADOS 1" 

67 INPUT X* 

68 CLS 

69 LET X =LEN X$ 

70 FOR C=1 TO N 

71 IF X $ =B $(C, TO X) THEN GOTO 
90 

72 NEXT C 

73 GOTO 78 

74 PRINT "DADOS 1",,B$ÍC) 

75 PRINT "NOME:";Aí (C) 




76 °R XNT 

77 jQT O 4-4- 

78 PR XNT "NflO ENCONTRADO“ 

79 PRINT 

80 GOTO 44 

31 PRINT "DIGITE NOME:"; 

82 INPUT X$ 

83 LET X =LEN X$ 

84- PRINT X$ 

85 FOR C=1 TO N 

86 LET K$=A$(C,(X + D) 

87 IF X*=fiÍ(C, TO X) AND CÜDE 
(K$> =0 THEN GOTO 90 

88 NEXT C 

89 GOTO 98 

90 CLS 

91 PRINT "NOME" 

92 PRINT A $ (C ) 

93 PRINT "DADOS 1“ 

94 PRINT B $ (C ) 

95 PRINT "DADOS 2" 

96 PRINT D$ (C) 

97 GOTO 99 

98 PRINT "NOME NAO ENCONTRADO" 

99 PRINT ,,"DIGITE ENTER" 

100 INPUT P$ 

101 CLS 

102 GOTO 44 

103 SAUE "ChDRsTRO DE CLIENTES" 

104 GOTO 44 

105 LET MEM = i PEEK 16388+250iPEE 
K 16389)-16384 

106 LET SA =MEM — C (PEEK 16404+256 
tPEEK 16405)-16384) 

107 LET 5C=(Z+E+D)íN+24 

108 PRINT , > > >“MEMÓRIA INSTALAD 
A",MEMj" BYTES" 

109 PRINT _ _ 

110 PRINT "MEMÓRIA DIoPONIUEL 

111 PRINT SA;“ BYTtS" 

112 PRINT 

113 PRINT “ARÜUIUO SOLICITADO" 

114 PRINT SC;" BYTES" 

115 IF SC > =SA THEN GOTO 138 



x 16 
INE 44 
117 
na 

119 

ião 
121 
122 
123 
124. 
XT X 

125 

, D =•* 

126 

127 

128 

129 

130 

131 

132 

133 
134. 

135 

136 


PRINT 


OK' 


-DIGITE NEU 


Pt 


INPUT 
CLS 

GOTO 20 
CLS 

FOR X = 1 TO 
PRINT R$(X) 

IF X + 1 > N THEN 1 GOTO 
IF X/15 < >INT (X/15) 


N 


130 

THEN 


NE 


IF 


R$ ( (X + 1j 


Rt (X, 1) - RND 

•* THEN GOSUB 130 
PRINT j j “DIGITE ENTER* 1 
INPUT P$ 

CLS 

NEXT X 

PRINT , /'FIM DO RROUIUO 44 
PRINT “DIGITE NEU LINE** 
INPUT Pt 
CL5 

GOTO 4.4 
CLS 

PRINT “NRO EXISTE 
‘•DIGITE 0 '* 

137 GOTO 44 

138 PRINT “NRO EH UIRUEL, 
EN5IONE"/“DIGITE NEU LINE“ 

139 INPUT Pt 
GOTO 5 

SRUE M CRDfi STRE 4 ' 

GOTO 44 
REM 

PRINT - RLTERRCRO 44 
PRINT “QURL O NOME DR FICHR 


RROUIUO 44 


REDIM 


140 

141 

142 

143 

144 

145 


146 INPUT Xt 

147 LET K=LEN X$ 

148 FOR C=1 TO N 

149 LET X=C 

150 1“ R$(C, TO K) =X t THEN GOTO 
154 

151 NEXT C 

152 PRINT X$ 
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153 GOTO 08 

154 CLS 

155 PRINT “DIGITE ENTER M ,,“OU E 
MTRE NOUOS DADOS" 

156 PRINT 

157 PRINT "NOME" 

158 PRINT 

159 INPUT X$ 

160 PRINT X$ 

161 IF X*<> ,,# * THEN LET A$ (X) =X$ 

162 PRINT "DRDOS 1“ 

163 PRINT B$íX) 

164 INPUT X$ 

165 IF X$<>"" THEN LET B$ (X) =X$ 

166 PRINT X$ 

167 PRINT M DRDOS 2“ 

168 PRINT D$(X) 

169 INPUT X$ 

170 IF X*<>'*“ THEN LET D$ CX) =Xí 

171 CLS 

172 GOTO 44 

173 IF (N > =V) AND P=5 THEN GOTO 
24 

174 GOTO 42 
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O D lv| T in-t 




CONTROLE DE CONTA BANCARIA 
PS LANÇAMENTOS DIGITE 1 
PS ULT. EXTRATO DIGITE 2 
Ps ALTERAÇÕES DIGITE 3 


5 REM DIGITE GOTO 365 

IO REM MICRON ELETRÔNICA 

15 LET T=t? 

16 LET C=T 

17 LET NC=0 

20 PRINT "CONTROLE DE CONTA BA 
NCARIA" 

30 GOTO 210 

32 CLS 

33 PRINT "SALDO ANTERIOR DE $ 

" ; T+C 

34- PRINT "QUANTIA INICIAL = $" 

35 INPUT T 

36 PRINT T 

37 PRINT "OTOS. LANÇAMENTOS?" 
33 INPUT NC 

39 LET C =T 
4-0 DIM D (NC) 

4-2 DIM U (NC) 

4-4- DIM M$ (NC , 3) 

4-5 FOR N = 1 TO NC 
4-6 CLS 

4-7 PRINT "ESTE EH O ";N;“* LAN 
CAMENTO DE ";NC 
4-Q PRINT 

50 PRINT "PS CHEQUE","DIGITE 1 

51 PRINT "PS DEPOSITO","DIGITE 

2 " 



-i) 


54- INPUT X 

56 IF X<1 OR X >2 THEN GOTO 54- 

57 CLS 

58 IF X=3 THEN GOTO 200 

59 IF X=1 THEN PRINT ”CHEOUE» 

60 IF X=2 THEN PRINT '‘DEPOSITO 

61 PRINT _ 

62 PRINT "DOCUMENTO N*."í 
64- INPUT D (N) 

66 PRINT D ÍN) 

70 PRINT "URLOR EH $:"í 
72 INPUT UtN) 

74- PRINT UíNJ 

03 IF X = 1 THEN LET U lN » <N.» * l 


DO 


92 IF X = 1 THEN PRINT 
94 IF X=2 THEN PRINT 


'FRUORECI 
•HOTIUO : 


100 INPUT MÍ(N> 

110 PRINT M$(N) 

115 IF K=1 THEN GOTO 200 
120 LET T=T+UiN) 

125 PRINT , 

130 PRINT "SRLDO RTURL * * r ;T 

140 PRINT "DIGITE ENTER" 

14-5 INPUT U$ 

150 NEXT N 
200 PRINT 
202 CLS 
210 LET K=0 

220 PRINT "PS LRNCRHENTOS 
ITE 1" 

230 PRINT "PS ULT 
G XT E 2 ** 

24-0 PRINT "PS RLTERRCOES" / "DIGI 
T| 3" 

2 Í 0 IF P pTl P OR p>3 THEN ggTO 250 
265 IF NC=0 RND P-í > 1 THEN bOTO 
250 


'DIG 
EXTRRTO" ,"OÍ 


37 



CHEQU 


270 
280 
290 
300 
305 
320 
330 
34-0 
E N" ’ 
34-5 
ITO . 
34-8 
350 
352 
355 
355 
358 
350 
370 
362 
364- 
370 
372 
374- 
376 
378 
4-10 


IF P = 1 
XF P=2 
IF P =3 
CLS 

LET T=0 
PRINT 
FOR N = 1 
IF U ÍN) 


THEN 

THEN 

THEN 


GOTO 

GOTO 

GOTO 


32 

300 

4-00 


TO NC 
<0 THEN 


PRINT 


IF UCN) >0 THEN PRINT "DEPOS 
DOC. N B, *j 
PRINT DÍN) 

PRINT “URLOR EM $ "iUtN) 

LET T=T-hU\N) 

PRINT "P/ 

PRINT „ ^ _ 

PRINT "SRLDO RTURL $ ; T + U- 

IF N/3=IHT (N/3J THEN GOTO 


PRINT 
NEXT N 

PRINT "DIGITE 
INPUT U$ 

CLS 

NEXT N 
GOTO 200 
PRINT "OURL O 


CORRIGIR 7 
4-20 PRINT "DE 
4-30 INPUT N 
4-4-0 IF N < 1 OR 


1 R 


ENTER' 


LRNCRHENTO R 
*' ; NC 


N > NC THEN GOTO 4-3 


0 

4-50 CLS 
4-55 LET K =1 
4-60 GOTO 4-0 



cezf reic:: I 


DEPRECXflCflü - * y* CONSTftMTE 

DIGITE 

UflLOR INICIAL 


DEPRECIRCRÜ — * /« CONüTANTE 

DIGITE 

uflLOR inicial lege 

UALOR RESIDURL 10 i 3 
PERIQQQ5 fi DEPRECIAR 


IDRDE-DEPREC 

0 - a 

1 - 175 

2 - 144-«375 

’4 - 119 . 10937 

4 - 93.265234 

5 - 31.053313 

6 - 66.381775 

7 - 55 . 1774.55 

8 - 4-5.521409 

9 - 37.555162 

10 - 30.933009 

11 - 25.560962 

12 - 21.03731 


URLDR NO PERIDDQ 

1000 

825 

680.625 

5ol.5 1a ó3 

463.25039 

332.13153 

315.2993 

263.12234 

214.50093 

177.04577 

146.06276 

120.53177 

99.413964 


OUTRO C0l_CUl_O7 S,'N 
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10 

20 

— ■ 

30 

4-0 

4-5 

50 

55 

50 

65 

58 

70 


REM MICRON ELETRONITR 
PRINT RT 4,0,"DEPRECIhChü 
CONSTANTE" 

PR TNT 

PR TNT "DIGITE** 

PRINT "UfiLQR INICIAL 
INPUT U 
PRINT U 

PRINT "UfiLÜR REEID-UAL " ; 
INPUT S 
PRINT 5 

PRINT "PER IO D G -5 A DEPRECIhR 


75 INPUT T 
30 CLb 

82 LET X=S>U 

84- LET Y=õ.001 

S6 LET ZL-L -V 

SS LET K^Z-fc^T 

yw IF X > =K THEN GOTO 96 

22 LET Y=V+Q.001 


94 GOTO 38 
100 LET X=0 

102 LET D=X 
104. LET P=U 

108 PRINT "IDRDE^QEPREL" ."UhLQR 
NO PERÍODO" 

107 PRINT 

103 PR INT X; " - " ; D U 

110 FOR 3 = 1 TO T 

112 LET R=U*<tl-YíItüJ 
114- LET TD=P-m 
116 LET D =D+TD 
118 LET P=A 

120 PRINT U; " - MD.P 

122 N EXT U 
124- PRINT 

126 PRINT "QUTRÜ CfiLCULO? S,T4" 
128 INPUT S$ 

130 IF 5 5i<>’‘S” THEN GOTO 128 
132 CLíd 
134- RUN 

136 5AUE "PCT« CQM5Tg" 

138 RUN 
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TABELA F=R:ICE: 


CALCULO QUALQUER UM DOS FATORES 
oE 3 FOREM CONHECIDOS 


Ps 


DIGITE 


CAPITAL FUTURO 
CAPITAL INICIAL 
JUROS 

TAXA de JUROS 
N* DE PARCELAS 


1 

2 

3 

4- 

S 


PERÍODO DE TEMPO ITEM 4- =ITEM 5 


120000 
H Sm 13 

e 

60795.735 


OUTRO CALCULO ?S/N 


CAPITAL FUTURO = 
TAXA DE JUROS = 
N*DE PARCELAS 
CALCULADO 
CAPITAL INICIAL = 


1 


CAPITAL INICIAL 
TAXA DE JUROS 
N* DE PARCELAS 
CALCULADO 
CAPITAL FUTURO 


1QQOQ 

ia 

6 

177IS.61 


OUTRO CALCULO ?S/N 
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10 REM MICRON ELETRONICR 
12 LET X$ = l, Cfl LCULfiDO" 

18 PRINT PT 5,0;“CfiLCÜLO OUALQ 
UER UM DOS FATORES" 

20 PRINT M SE 3 FOREM CONHECIDO 


21 PRINT 

22 PRINT 
24- PRINT 

25 PRINT 

26 PRINT 

23 PRINT 
30 PRINT 
32 PRINT 
34- PRINT 

35 PRINT 

36 PRINT 


"P/" , “DIGITE 1 * 

"CAPITAL FUTURÕ U / , 1“ 
"CAPITAL INICIAL" , "a*« 
"JUROS","3" 

"TAXA DE JUROS" , "4." 

" N* DE PARCELAS" , "5" 

"PERÍODO DE TEMPO ITE 


M 


4- 

37 

33 

4.0 

4-2 

100 

110 

120 

130 

14-0 

150 


= IT E M 5 " 

INPUT P 

IF P < 0 OR P > 5 THEN GOTO 36 
CLS 

GQ5UB P*100 
GOSUB 560 
GOSUB 570 
GOSUB 530 

LET CF=CI* í (1+TJ) * *T) 

PRINT X $ 

PRINT "CAPITAL FUTURO** /* = 


; Cf 

160 GOTO t>00 
200 GOSUB 550 
210 GOSUB 570 
220 GOSUB 580 

230 LET CI=CF/((1+TJ)**T) 

24-0 PRINT X $ 

250 PRINT "CAPITAL INICIAL"," = 
" ; Cl 

2t>0 GOTO 600 
300 GOSUB 56© 

310 GOSUB 570 
320 GOSUB 530 

330 LET J=CI* i C1+TJ) **T-1) 

34-0 PRINT X $ 

350 PRINT "JUROS","- ";J 
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360 

400 

410 

420 

430 

*100 

440 

450 

tj; ** ' 

460 
500 
510 
520 
530 
J) ) 
532 
534 
; T 
540 
550 

' 552 

553 

554 
560 

562 

563 

564 
570 

i à . 

* > 

570 

573 

574. 

575 

530 

582 

583 

584 
590 

592 

593 

594 


GOTO 600 
G05UB 5t>0 
GOSUB 580 
GOSUB 590 

LET TJ= i ( (CF/CI) ** i 1/T) ) -li 

PRINT "TRXA DE JÜROS n /*= "- 

GOTO 600 
GOSUB 550 
GOSUB 5t>0 

ÍCF/CX) ) / CLN 1 l+T 

PRINT "N“ DE PARCELAS" /' = 
GOTO 600 

PRINT “CRPITAL FUTURO j - 

INPUT CF 
PRINT CF 

PrÍnT N “CAPITAL. INICIAL" = 

INPUT Cl 
PRINT Cl 

prÍnt N,, taxa DE JUROS"/'= m S 

INPUT TU 
PRINT TU 
LET t U =T U/1Õ0 

PRINT N “í'Í“C'E PARCELAS","- **; 
INPUT T 
PRINT T 

PRINT N, ‘UALüR PRESTflCAO" , " = 

INPUT OP 
LET CF=UP*T 
PRINT UP 



595 RETURN 
bO0 PRINT 
602 PRINT 

606 INPUT p$ UTRO CRl - CULO 

600 IF P $ < >"S" THEN GOTO 006 
t> IO CLS 

611 RUN 

612 SflUE "flNUIDflDEg" 

614- RUN 



PRDGRESSAO 
ARITMET X CA 


PROGRES5RÜ RRITMETICA 

1* TERMO ? =1O0 
OIFERENCR COMUM ? =25 

N* DE TERMOS ? = 


PRQGRESSRO RRITMETICR 


N" DO TERMO UflLOR 

1 

100 

2 

125 

3 

150 

4. 

175 

5 

200 

5 

225 

7 

250 

3 

275 

a 

300 

10 

325 

11 

350 

12 

375 

R SOM R 

EH 2350 

DIGITE 

0 P/ OUTRO CALCULO 
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10 

12 

20 

22 

30 

50 

60 


REM MICRON ELETRONICR 
LET T=r0 

PRINT "PROGRES5RO RRITMETlc 
PRINT 

PRINT M 1“ TERMO 7 = ‘\; 

INPUT R 
PRINT R 

PRINT **DIFERENCR COMUM 7 «•• 


70 INPUT D 
80 PRINT D 

90 PRINT “N* DE TERMOS 7 - 1 *; 
100 INPUT N 
110 C-LS 
120 PRINT 

122 PRINT 11 PROGRE5SRO RRITMETIC 
R 11 

126 PRINT 

130 PRINT “N" DO TERMO 11 , “UfiLOR 11 
14.0 FOR X=0 TO N-l 
150 LET Y=X + 1 
160 LET U =R + C X *D) 

170 LET T=T+U 
180 PRINT Y,U 
190 NEXT X 
200 PRINT 

210 PRINT ”R SOMR EH 11 ; T 
215 PRINT 

220 PRINT “OIGI TE 0 P/ OUTRO CR 
LCULO'* 

230 INPUT P$ 

24.0 IF P $ < > * 1 0 11 THEN GOTO 230 
250 CLS 
260 RUN 
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CDRRE«7AD DIB PROVAS 


CORRECAQ DE PRQURS 


p, DIGITE 

ENTRAR GABARITO 1 
ALTERAR 2 
ENTRRR PROURS 3 
ALTERAR 4- 
NOTAS 5 
GRAUAR 6 
UERIFICACAÜ 7 


CORRECRO DE 
NOME 

MANOEL. OLIU 
■JOSE SILUA 
GRRRINCHR 


UERIFICRCRO 
NOME :MANOEL 

Ni* RESPOSTA 
\ R 
2. D 

3 C 

4- D 

5 E 

OUESTOE5 
‘iiUESTOES 
NOTA : 


PROUAS 

NOTA 

80 
100 
4-0 


OLIU 

GABARITO 

A 

B 

C 

D 

E 


CERTAS: 4- 

ERRADAS.1 

se 


&/ FIM DIGITE FF 
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O REM MICRON DEZ/82 

2 DIM G $ ( 1) 

3 LET G$C1)='*0*' 

4- LET P=0 

5 CLS 
ô LET Y = 0 

7 PRINT "CORRECflO DE PROUflS" 

8 PRINT ,"P/","DIGITE" 

9 PRINT .. 

10 PRINT "ENTRAR GABARITO"."l- 

11 PRINT ” RLTERflR ,'*2" 

12 PRINT "ENTRRR PROVAS","3" 

13 PRINT “ALTERAR","!” 

14 PRINT “NOTAS","5" 

15 PRINT "GRAVAR"."õ" 

16 PRINT "VERIFIChCAO","?" 

17 INPUT X 

18 CLS 

19 IF G $ ( 1) < > " 0 “ THEN GOTO 2 

20 IF X < > 1 THEN PRINT "I a Dl 
TE O GABARITO" 


21 

IF 

X < >1 THE 

N GOTO 

fcv 

22 

IF 

X = 1 

THEN 

GuT u 

36 

23 

IF 

X = 2 

THEN 

G uT ü 

33 

24 

IF 

X = 3 

THEN 

GOTO 

29 

25 

IF 

X =4 

THEN 

GOTO 

39 

2b 

IF 

X =5 

THEN 

GOTO 

63 

■—» -? 

IF 

X=5 

THEN 

GOTO 

±31 

28 

IF 

X=7 

THEN 

GOTO 

103 

29 

PR 

INT 

"OTflS 

PRÜUR 

o " 


30 INPUT P 

31 PRINT “OThS PERGUNTAS?" 

32 INPUT R 

33 DIM N$((P+l),15) 

34 DIM P$ í ÍP + 1) , iR + i) ) 

35 GOTO 51 

36 PRINT "ENTRAR GABARITO" 

37 PRINT "OTfiS PERGUNTAS?" 

38 INPUT R 

39 PRINT "(DUAL R RESPOSTA?" 

40 DIM G$ CR) 

4-1 CLS 

42 PRINT "DIGITE RESPOSTíAS" 

43 PRINT “EM 1 CARACTERE " 
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4.4 

FOR L 

= 1 TO 

45 

PRINT 

L; •' *' 

46 

INPUT 

G $ (L) 

4 7 

PRINT 

G $ i L ) 

46 

;n 

IF L > 
SCRÜLL 

33 RN D 

4-9 

M sz XT 

i 

'— 


■iT íL/2) =1-/2 T 


5ô GOTO “ __ „ 

51 FOR Z = 1 TU P _ _kiomE“ 

52 PRINT “ENiRE U .. NOrlt. 

’*MAX . 16 LbiRflS" 

‘ 53 INPUT N$u.) 

Is PrIwT -DIGITE hS RESPOSTAS, 
“,“EM 1 CARACTERE" 


Í3D 

PAUSE 

±\ 

57 
5 3 

CLS 
FOR K 

= 1 

^9 

PRINT 

K 

60 

INPUT 

P 

61 

PRINT 

P 

52 

XF K >33 


MEN 5CROLL 

<53 NtXT K _ _ 

*54. XE Y = 'l í Hi=.N üUTu 5 
õ 5 CLS 
56 NfcXT Z 

II PRIMT & “CüRREC AO DE PROUAS" 

70 PRINT , .. "NOME" , "NOTfl" , , > 

71 FOR Z=i Tü P 

72 LET 5=0 

-? •-> p.*>n k* ~ "» nr: ! h! _ — 

■ 74 ^ xf P $ (Z K) =GíptKJ THEN L-ET 9 
= 5 + 1 

75 NEXT K , ^ 

7õ PRINT M$£Z) , (lOSí/Rl*^ 

77 XF Z/15 < í INT iZ/15) 1 MEN l»U 

TO ' èü 

73 INPUT X $ 


70 CLS 
30 NEXT Z 
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SI 

32 

33 
34- 

35 

36 
87 
3S 


IMPUT XS 
GOTO 5 


PRINT 
PRINT 
XWPUT 
PRINT 
INPUT 
GOTO 5 


"RLTERRR GRBRRITO" 

" GUflL A OUE5T RO' 7 '" 

U 

'“DIGITE H RESPGST A " 
G $ ÍU) 


89 PRINT "ALTERAR PROUAS" 

90 PRINT "QUAL G NONE/CODIGO 
U HLÜNÜ" 


D 


91 INPUT XS 

92 LET X =LEN XS 

93 FOR N-1 Tu P 

94- IF N $ i N, TG X) =XS THEN GOTA 
97 

95 NEXT N 

96 GOTO 5 

97 PRINT M $ (Ni 
93 LET Z=N 

99 PRINT "ALTERA TODAS S/N" 

100 INPUT U$ 

101 LET Ysl 

102 IF U$="S" THEN GOTO 55 

103 PRINT "OUfiL A GUESTflO?" 

104- INPUT K 

105 PRINT "DIGITE A RESPOSTA" 
105 INPUT PS(Z.K) 

107 GOTO 5 

103 PRINT "UERIFICfiCfiO".. 

109 FOR Z=1 TO P 

110 PRINT "NOME 

111 LET 0=0 

112 PRINT MS (21 

RITO" PRINT RESPOSTA","GABA 

POR K = 1 TO R 

T-n 1 ?-, I F K/150INT (K IS J THEN GO 
* U 113 

116 INPUT X $ 

117 CLS 

118 TF P$(2 ; K)=G$(K) THEN LET O 
— 0 + 1 

119 PRINT K; " ";P $ í Z,K > > G$ (K) 
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120 NEXT K _ 

121 PRINT ,,"OUESTOEa CERTOS: 

122 PRINT "QUESTÕES ERRADOS : '* J R 

123 PRINT "NOTA:"," " i INT ((100 

/R) «O) 

124- PRINT ,,"P/ FIM DIGITE 

125 INPUT X$ 

126 CLS 

127 IF X $ = " FF " THEN GOTO 5 

128 NEXT Z 

129 GOTO 5 

130 ST ÜP 

131 SAUE "PRÜUAS" 

132 GOTO 5 
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EDITOR DEZ TEXTOS 


idritowaaaatfiiiai 


P / 

DIGITE 

íESCREUER 

-i. 

CURSOR 

O 

LER 

3 

RPRGRR 

4 

GRRURR 

5 

IMPRIMIR 

6 


MICRON 


Este programa é un editor de textos com facilidades de 
edição, leitura, impressão e gravação de 10 ou mais pa 
rágrafos com 192 caracteres cada. 

Sem alterações, possui apenas 20$ da capacidade de ar 
quivo da versão comercializada em cassette. 

Fara se obter um melhor aproveitamento no uso do pro 
grama, e preciso observar alguns esclarecimentos quan 
to ao seu funcionamento. 

0 programa interpreta a função IMCEYS, mesmo sem SLOW, 
utilizando uma subrotina da ROM e colocando os caract^ 
res imediatacente na memória do vídeo. Isto não arqui. 
va os caracteres ou textos, o que somente e feito em 
dois cn~os; guando una linha estiver completa com }2 
caracteres, ou pelo uso de New Line. 

Nestes casos, cs caracteres existentes w vídeo' são co 
piados para a3 diferentes STRIKGS de nome A$, existen¬ 
tes nas linhas de programa 10,12,14,..-,28,30. 

As STRIKGS AS são denominadas parágrafos, com seis li 
nhao cada e serão mostradas no vídeo em conjunto de 3» 
durante a escrita, leitura ou modo cursor. 

A3 instruções RUN ou CLEAR não apagam os textos arqui¬ 
vados. 


o MENU 
INSCREVA 


Esta opção é para a edição de textos. Basta digitar os 
caracteres e eles serão colocados no vídeo,a esquerda 
do cursor especial. Pode-se voltar ao MENU por SnLr? K 
ou recorrer às facilidades do cursor por SHIFT T. 

Para se arquivar uma linha ou completa-la em branco dl 
gita-se New Line. 

Após correçoes em linhas anteriormente arquivadas,e £ 
brigatório rearquivá-las por New Line. Neste caso, c 
cursor deve estar entre palavras e não sobre alguma l£ 
tra, ou ela será apagada após o New Line. 

Importante: a tecla SPACE significa EEEAK, exceto du 
i-anfee as instruções INPUT, e não deve ser usada duran 
te a edição, ou o programa será interrompido. 0 espaço 
e obtido digitando-se Çf , zero. Para Çf y zero, use 0. 

2. CURSOR _ _ 

Esta opção inicialmente pergunta qual o par agrafo 
desejado. Apresenta no vídeo o anterior, o solicitado 
e o seguinte com as seguintes facilidades de movimenta 
çao do cursor, contidas nos comandos/teclas: 

5 move uma posição a esquerda, 

6 move uma linha abaixo, 

7 move um parágrafo acima, 

8 move uma posição à direita, 

9 move quatro posições à direita, 

SHIFT T volta ao modo ESCREVA e SHIFT M volta ao. MENU. 

3. LER ___ 

Apresenta no vídeo os textos arquivados de 3 em 3 para 
grafos, a partir do zero, que não é editável por vias 
normais. 

4« APAGAR ___ - _ 

Permite apagar um parágrafo inteiro e seus sub seque n 
tes, com uma só teçla. 

5. GRAVAR _ _ ___:_ ;_ 

■ Grava o programa com o texto, no cassette, após f pedir 
o nome do arquivo ou texto. 

6. IMPRIMIR ___ 

Imprime, via impressora, o texto ate o parágrafo in 
dicado. » 


IMPOR TARTE 


As linhas de números 14 a 29 nao se encontram na list 
gem. As linhas de número par de 10 a 20, isto é: 10 t 1 
14,16,18, 20, 22,24,26,28 são iguais a de número 10, 

10 DET A$= m 192 espaços " 

E as de números ímpares de 11 a 29 são todas RETURR. 

Nao alterar nada desde a linna 1 ate a 20 ou 0 programa 
não funcionará podendo ate ser destruido parcialmente. 

Digite apenas a linha de número 10 com 192 espaços, uti_ 
lize PRINT LEíí AS para verificar se realnente existem 
exatamente 192 caracteres e,usando as facilidades de e 
dição do micro, reedite-as, alterando os números de li 
nha. 

Existem 10 STRIfíGS A$ com 192 caracteres cada, possibi¬ 
litando arquiyar 1920 caracteres. 

Voce pode aumentar a capacidade do arquivo, aumentando 
a quantidade de STRING-S AS como linhas de programa, des 
de que refaça as proibições das linhas 40,54,2^0,229 e 
239 e renumere as linhas do programa. 


1 GOTO 1O00 
IO LET P$ = *' 


11 RETUPvN 

12 LET 


13 RETURM 
14. LET P$=” 


104 


rj p 



30 LET Pí = " 


34 

(163 

36 

38 

4.0 

4-2 

4 - 4 - 

4-6 

4-6 

4-9 

50 

51 


RETURN 
GOSUB 54- 

l_ET '.< = 198 +PEEK ( 

97) *256 

RETURN 

Q| 5 

XF Z=9 THEN GOTO 


(16396)+PEEK 


12 GOSUB Z*s>+8 
14- PR1NT PÍ 
4.6 GOSUB Z *-5 +10 
16 PRXNT P$ 

19 GOSUB Z *5 + 12 

|l PRXNT RT 19,Y-Y;"PRRRGRRFOS 

; z-Y; " R "iZ+y 

52 RETURN , ^ ,. v 

S 4 . IF Z<9 THEN LET j-=j-+Y 

56 GOSUB 38 

5S GOSUB 34- 

6 © RETURN 

62 l—ET Z =Y — Y 

64 GOSUB 54- 

70 POKE^X+B , PEEK <X+3>+£pp in .. 

71 PRINT RT 20..N-Y/ EaCRELR 

72 l_ET K=Y-Y 

73 RRND UsR U 

[.ET PÍ = XNKEYÍ . „ . 

75 xF PÍ = ’■ < > ” THEN GOTO 114- 

79 XF cÕDE Tt (P$) *>63 D THEN GOTO 7 

RO TF P$=”0“ THEN LET PÈ=" 

83 IF K=Y THEN LET P* = " 


:=z+y 
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©4 POKE X+B.CODE (P$) 

©6 LET B=B+Y 
88 IP K=Y THEN GOTO 94 
90 IF B =33 THEN GOTO 94 
92 GOTO “70 

94 LET B=Y 

95 LET K = Y — Y 

98 PRINT PT 20.Y-Y; n 

97 SCROLL 
100 FOR N=Y TO 32 

102 POKE 16501+N+P*32+Z*209, PEE 
K ÍX-33+N) 

104 NEXT N 

106 LET R=R + 1 

108 IF R=7 THEN GOSUB 54 

110 IF R=7 THEN LET H =V* 

112 GOTO *70 _ 

114 PRINT RT 20 > Y-Y; ‘ aSSgBB 

118 RRNQ USR U 
118 LET Pí=INKEY$ 

122 GOSUB 34 


124 

POKE X + B/ 

PEEK 

CX+B)-123 

126 

IF 

P$ = 

•• 5 •• 

THEN 

LET B=B-Y 

125 

IF 

P* = 

“ S ’* 

THEN 

LET 3 =B +Y 

130 

IF 

Pí = 

• • g •• 

THEN 

LET B=B+4 

132 

IF 

B <Y 

OR 

B >32 

THEN LET R= 

134 

IF 


** p ** 

THEN 

LET R =Y 

136 

IF 

Pt = 

•» p »* 

THEN 

GOSUB 54 

13S 

IF 

P$ = 

»»-p d 

hnd : 

Z>1 THEN LET 

= Z-S 
140 

IF 

P$ = 

i« -y •• 

THEN 

LET R=Y 

141 

w • »• 

IF 

P$ = 

1 . 0.1 

THEN 

PRINT RT 19 

11 

— (s 

142 

IF 

P$ = 

11 7" 

THEN 

GOSUB 54- 

144 
—Y•• 

145 

IF 

Pí = 

.. 0 .* 

THEN 

PRINT RT 20 

1 • 

IF 

P% = 

M 6 ,# 

THEN 

SCROLL 

146 

IF 

P$ = 

M 6 " 

THEN 

LET R = R+Y 

148 

IF 

R = 7 

THEN G05UB 54- 

150 

IF 

R = 7 

THEN l_ET R=Y 

152 

POKE X+B, 

PEEK 

ÍX+B)+123 

154 

IF 

P$ = 

" < > 

" THEN GOTO 71 
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155 IF P$=">" 

156 GOTO 114- 
153 CLS 

160 PRINT .. , , 

q _ 

161 LtT R=1 
LET Y=A 
LET 5=Y+Y 
l_ET U =34-0*5+Y 


THEN GOTO 153 


PROCESSADOR 


162 

163 

164. 

lfc*S 

167 

168 
170 
172 
174. 
176 
178 
130 
182 
184 
186 
133 
190 
192 
194. 
19ô 
200 
202 
203 
204. 
236 
203 
209 
-V10 
212 
214 
*216 
213 
220 

>22 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

GÜ5UB 


, , -P/“ ,"DIGITE" 
"ESCREUER" , 1 

"CURSOR",“2" 
"LER","3" 
"APAGAR" . "4-" 


-GRAUAR" , **! 
"IMPRIMIR” 
314- 


” 6 ” 


RAND USR U 
CLS 

LET P$=INKEY$ 


IF 

IF 

IF 

IF 

IF 

IF 


' 1' 

• -O * 


P$ = " 

P$ = - 
P$ ='' 3 ” 
P $ = " 4- ” 
P$="5“ 
P$=”6” 
15 o 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


GOTO 

GOTO 

GOTO 

GOTO 

GOTO 

GOTO 


62 

202 

213 

232 

293 

253 


314- 


CURSOR 


GOTO 
CLS 
GOSUB 
PRINT 
PRINT ,/, 
INPUT X 
IF X <Y OR 
LET Z =X —Y 
LET P$=”P” 

LET B=Y 
GOTO 134- 
LET Z=Y 
GOSUB 33 
_ PRINT "DIGITE 
M PARA MENU" 

224. RAND USR U 
226 IF INKEY $ = "M" 
228 LET Z=Z+S+Y 


PARAGRP.FO N" 7“ 
X>9 THEN GOTO 153 


NEU LINE" f “OU 
THEN GOTO 15S 
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229 IF Z >9 THEN LET Z=9 
23© GOTO 220 

232 CLS 

233 GOSUB 314- 

234. PRINT "RPfiGRNDO" 

236 PRINT i t " OUflL O PRRRGRRFO r- 

236 INPUT Z 

239 IF Z <Y OR Z>9 THEN GOTO 1S8 
24.0 PRINT , ."DIGITE X Px RPflGflp 

24.2 PRINT "PRRRGRRFO N* " ; Z 
24-4- RRND USR U 

24.6 IF INKEY$ < > "X" THEN GOTO 15 
Q 

24.3 FOR N =Y TO 192 

2S0 POKE 16533+N+Z*2G9.Y-Y 
252 NEXT N 
254- LET Z=Z+Y 

255 CLS 

256 GOTO 24-0 
25S CLS 

259 GOSUB 314- 

26© PRINT "DIGITE O N* DO ULTIM 

O " 

262 PRINT "PRRRGRRFO R IMPRIMIR 

264. INPUT X 
266 CLS 

26S PRINT RT 10,10;"IMPRIMINDO" 
270 FOR MsY TO X 
272 GOSUB NíS+10 

274. LPRINT P$ 

276 IF N < S THEN NEXT N 

277 PRINT RT 10,10;"FIM” 

270 PRINT "DIGITE NEU LINE" 

279 RRND USR U 

280 GOTO 158 
29S CLS 

299 GOSUB 314. 

300 PRINT "GRRURCRÜ DOS TEXTOS" 

302 PRINT “DIGITE O NOME" 

304. INPUT P$ 

306 SRUE P$ 


íoe 



30S Cl_S 

310 PRIMT "OPERflCfiO C.' CASSETTE 

S3 " í .< ) _ 

312 GOTO 16© - 

314- PRINT , , "■■■■■OBKSSasELB^Bi 

316 RETURN _ 

999 REH PROIBIDO REPuDUZIR 
1010 GOTO 15S 


109 



DRDbIWADDK DE NDMETç; 


ORDENRDÜR DE NOMES 


digite o 

OURNTQS NOMES '? 

DE OTRS. LETRRS *? 


MhX. 32 L ET RfiS/NOME 
ENTRE C/ 1“ NOME 
REDRO RLURRES CfiBRfiL 
ENTRE C./ 2 a NOME 
CRISTOURO COLOMBO 
ENTRE C,' 3 b NOME 
EDoON rrrntes 
ENTRE Cs 4-“ NOME 
í-RRNC-ISCü CHflUIER 
ENTRE C/ 5 e NOME 
UÜRÜUIM SILUR 
ENTRE Cs 6 a NOME 
•JÜSE SILUR 
ENTRE C./ 7* NOME 
MRNüEL DE OLIUEIRfl 
ENTRE C/ 3* NOME 
= breco QUENTE 

ENTRE o 9“ NOME 

NOMES ORDENADOS 
PROXIMOS NOMES DIGITE 

RLROR FERNANDES 
CHICO PEDREGULHO 
CRISTÜURO COLOMBO 
EDSON RRRNTES 
FRANCISCO CHhUIER 
IDIRMIM LELE 
JOAQUIM SILUR 
JOSÉ SILUR 
MRNüEL DE uLIUEIRR 
ÇeÇRO ALUARES CABRAL 
JBRTE DO ORDENRDOR 

DO BREJO QUENTE 


“CONT “ 


OUTRR UEZ 


DIGITE O 
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0 PRINT "PROIBIDO RcPRODUZIR" 


* •' iá rpm MICRON ELETRÔNICA 

20 PRINT RT b,5;"ORDENRDOR DE 
NOMES" 

24- PRINT 
28 PRINT 

40 PRINT ... 

50 PRINT "DIGITE O 
52 RRND USR bSl 
55 LET P$=INKEY$ ^ 

60 IF P$<>"©“ THEN uOTQ 
70 PRINT "OUhNTOS NDMEs 
80 INPUT N , ____ 

82 PRINT "DE OTRS. LETRHS : 

83 INPUT U 


85 CL5 

90 DIM Rí(N,U) 

95 DIN B$(U) 

100 FOR X. = 1 Tu N 

112 IF X=1 THEN PRINT 
; " L.ETRhS /NOME " 

115 PRINT "ENTRE ux 


"MRX . 

; x; “■ 


" ; U 
NOME 


11S 

120 

1.25 

14-0 


INPUT R $(X) 
PRINT R$(X) 
IF X*(X/10) 
NEXT X 


=X THEN CLS 


160 PRINT "NOMES ORDENRDOo 

X85 IF N>10 THEN PRINT PROxIMu 

S NOMES DIGITE ""CONT. 

200 FOR X=1 TO (N-l) 

204 FOR Y=X+1 TO N _ _ _ __ 

210 IF R$(X) <R$(Y) THcN GOTO 25 


0 

214 LET C$=R*(X) 

220 LET R$(X)=Rí(Y) 

224 LET R$ (Y) =C $ 

250 NEXT Y 

260 NEXT X 

270 PRINT 

280 FOR X = 1 Tu N 

290 PRINT Rí(X) 

300 NEXT X 
o10 PRINT 

320 PRINT "OUTRR UEZ " 


"DIGITE 


330 

334 

340 

3SO 


INPUT P$ 

IF P$<>"0“ THEN GOTO 380 

CLS 

RUN 
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estatística 


estatística 


PARA 

UALOR 



digite 

frequência 


DIG rTE UNA TECLA 


”0 




entre com- 

UALOR: 
FRcQUENCIA 
UALOR: 


FREQUÊNCIA 

UALOR: 

FREüUENCIfl 

UALOR: 


rREOUENCIA 


10 

4- 

20 

6 

12 

2 

0 


SeSia 1 ?^?^ 0 ^ entradas 3 

RÓdRAO 16.32 
fcRRO PADRAO 4-.71 

^.í^tte <c> para continuar nn 
'T> PARA TERMINAR OU 


1 CIV U.B.flouxNO 

2 LET 2 =L 

3 '..ET U=PI/Pi 
4- LET K =2 

5 LET M=Z 

6 LET N=Z 

Z Sr ET U = 10G 

0A“ PRINT “ ESTATISTI 

IGI?E? RXNT ** p ARA TERMINAR ** , "D 
NCIA Ç?BJW I.. "UALOR ••■■Q., "FREQUE 

is RflSg T usé"tIf rrE UMfi TECLfl " 

13 CLS 

S3í NT "ENTRE COM - “ 

15 PRINT “UALOR-** 
lt> INPUT D ’ 

17 PRINT D 

18 PRINT "FREQUÊNCIA: 
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19HINPUT R 

20 PRINT R 

21 IF R < =L THEN GOTO 31 

22 IF Z*L THEN GOTO 24- 

23 IF 2/8=INT (2/8) THEN CLS 
24- LET 2 = 2 + U 

25 LET K=K+R 

26 LET T=D*R 

27 LET M=M+l 

28 LET G=CD**2)*R 

29 LET N=N+G 

30 GOTO 15 

31 LET fl=M/K 

32 LET X =SQR (N - t K* (R**2) ) ) 

33 LET F=X/SOR CK) 

34- PRINT 

35 CLS 

36 PRINT "OUflNTIDfiDE DE ENTRRD 


37 

LET 

X = CINT 

CX*U) 

) 

,'U 

33 

LET 

R = (INT 

CR*U) 

) 

✓u 

39 

LET 

F = CINT 

(F *U ) 

) 



4-0BPRINT "MEDIR ";R 
4-1 PRINT "DESUIO PRDRRO "; X 
4-2 PRINT "ERRO PRDRRO ";F 
4-3 PRINT 

4-4- PRINT "DIGITE <C> PRRR CONT 
INURR OU"/* <T> PRRR TERMINRR" 

4.5 LET L=U5R 681 

4-6 IF INKEY $ = "C" THEN GOTO 4-8 
4-7 GOTO 4-5 
4.8 PRINT 

49 CLS 

50 GOTO 1 

51 SflUE "ESTRTISTICB" 

52 RUN 
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CAI—CLJI—D DE CUBTD 


rgswft 


ULO 


nICRQM 


CUSTO O 





XNICIRR 

CONTINURR 

LISTAR 

GRflUflR 

CRLCULRR CUSTO 


II 

2 

3 

4- 

5 



CRLCULO DE CUSTO DE 


aaaggj — 


ITENS DE 1 R 

4-3 S 

37 

LUCRO 

+ ao 

s 

7.4 

+ RDICIONRDO 

$ 

30 

+ RDICIONRDO 
ICM 

$ 

5 

lí m Sm 

$ 

6 • / 34* 

PRECO FINRL 

$ 

89.134 


Este e um programa para calcular o custo final de um 
produto. Oferece es códigos de 1 a 55 com as .seguin¬ 
tes posssibil idades; 

CtolOC-5 DE 1 A 43 

Possuem uma descrição em 15 letras, para por exemplo: 
materiais, mão de obra, etc... 

Arquivam o preço unitário, a quantidade empregada e 
o fornecer. 

CÓDISCS DZ 5? A 55 

Possuem uma descrição em 15 letras, para percentuais 
a serem calculados sobre os valores acumulados. Nes¬ 
tes códigos, após se haver digitado um percentual a 
ser adicionado sobre os valores acumulados, e solici 
tado um valor, que pode ser zero, a ser somado ao vã 
lor acumulado. Exemplo- “ 
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HÜ-KOÜ 



GRLCULa_D| 


NICIflR 

ONTINURR 

ISTRR 

RRURR 

RLCULflR CUSTO 


míÇROHI 

^icuLoTr çj.■ s t~ r _ d ç-^-vfiSÊÜIiSL 


ssesMar i , 
lalMOm* 2 

* 5 XI 

luuü&Hr 3 

$ 20 X 1 

BagaKT is 

$ 2 XI 

gfiEjSMBP 5C5 

$ 30 X 20 

►frJJSMgF 52 

$ O XI1 


PORCfi 

FORNEC. SODP 

RRRUELR 
FORNEC. SODP 

PRRRFUSO 
FORNEC. SXF 

RMORTIZRCRO FER 
FORNEC. 

LUCRO 
FORNEC. 

ICM 

FORNEC. 


CRLCULQ DE CUsTo DE PRODUTO 


ITENS DE 1 R 4-9 $ 37 

LUCRO 

+ 20 * 7.1 

+ RDICIONRDO S 30 

+ RDICIONRDO $ 5 

ICM 

+ 11 m Sm * 8.7! 


PRECO FINRL 


$ 88.134- 
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0 MENU 


1. INICIAR 

Esta rotina apaga os dados arquivados. Após digitar 
1, será perguntado: DESISTE ? S/N ? . Caso não te 
nha sido por engano, digite N e New Line’. 

0 arquivo será apagado-e o prograna desvia-se para 
a entrada de dados, ou CONTINUAR. 

2. CONTINUAR 

Rotina para a entrada ou alteração dos itens consi¬ 
derados custos. Podem ser digitados códigos de Çf 
a 55» vide citação anterior. 

Caso voce digite o código de um item já arquivado , 
ser-lhe-a mostrada a descrição. Entre com a alteração 
ou simplesmente digite New Line. Após cada código o 
programa retorna ao MENU. Digite 2 para CONTINUAS. 

3- LISTAR 

Lista todos os i*6ens arquivados, de 6 em 6, parando 
proposi tadamento com esgotamento da memória de ví 
de-o. Digite CORT e New Line para cs próximos itens. 
Para voltar ao MENU, basta New Line. 

4. GRAVAR 

Grava o programa e os itens arquivados no cassette. 
Solicita o nome a ser dado a instrução SAVS. 

5. CALCULAR CUSTO 

Calcula o custo final dos 55 itens na forma. 

Os itens de 1 a 49 sao somados após os seus valores 
terem sidos multiplicados pela quantidade enorega 
da. Os códigos de 50 a 55 adicionam percentuais so 
bre o valor acumulado ate' o código anterior. Cada 
código de 50 a 55 possue um valor a ser adicionado, 
após a acumulação do percentual. 

Os códigos do fornecedor podem conter até 4 caracteres. 

Caso o programa seja intemrrompido por erros, digite: 
GOTO 2$ para retorno ao MENU. 
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a 


O REM MICRON ELETRÔNICA DEZ82 

2 LET z$='■(=>’■ 

3 LET U =681 
4- GOTO 20 

f PRINT N ,,>,"ESTA ROTINR APAG 

OS","DODOS ARQUIUADOS." 
à„t"t 7 S/N" 

è then goto 20 

15) 


PRINT 
INPUT PS . 

IF PSO"N" 
DIM D $(56 , 

C (5) 

5 (5) 

P (55) 

F $ (56,4-) 
0(56) 
Z*="L" 


Q 

10 
11 
12 
13 
14 - 

15 

16 

17 

18 
ROO " 

19 

20 
21 
22 
23 
24 - 

25 

26 

27 

28 

29 

30 IF 
GOTO 20 

31 IF 

32 IF 

33 IF 
34. IF 

35 IF 

36 GOTO 

37 CL5 

38 GOSUB 

39 PRINT 
(DE 1 R 50) 

4-0 INPUT 


DIM 
DIM 
DIM 
DIM 
DIM 
LET 
CLS 
PRINT , 

' GOTO 38 
CLS 
GOSUB 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
P.RND 


RROUIUO ZER 


80 


" INICIAR" .. 
"CONTINUAR 
"LISTAR"," 
"GRAUAR" .. 
"CALCULAR 
USR U 


•0' 


,g" 

ta 

CUSTO","S" 


LET A$ = INKEY $ 


Z$ = "P" AND A$ < >"1" THEN 


Aí="l" 
R$="2" 
A$="3" 
AS = "4." 
A*="5" 
28 


THEN 

THEN 

THEN 

THEN 

THEN 


GOTO 

GOTO 

GOTO 

GOTO 

GOTO 


6 

37 

68 

101 

83 


80 

,,"DIGITE 


N* DO ITEM 
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41 IF X<1 OR 


X>55 THEN GOTO 4 .© 
; X 

" THEN 


43 PRINT , , " ITEM N* 

43 PRINT "DESCRICRO : 

44 IF D$(X,1 TO 3)0" 

PRINT 0$(X) 

45 INPUT X* 

*§» IZ *■*<■>”•' THEN LET D$(X)=X$ 
1? X$<>"" THEN PRINT X$ 

R IF X <50 THEN PRINT "OUflNTID 

X:49 THEN PRINT **PERCENT 

50 IF OCX )<>& THEN PRINT Q (X) 

51 INPUT Yt 

y |2 IF Y $ O"" THEN LET QCX)=URL 

53 IF Y$<> ” *' THEN PRINT URL Y$ 

54 IF X <50 THEN PRINT "PREGO: " 

’fll!cÍ5 N £è*S; THEN PRINT •' UHLOR « 
1? xnp5t*y* >0 then print p( x> 

Y$ 8 IF Y * <> ’" THEN LET PCX) =URL 

Y*<>"" THEN PRINT URL Y? 

60 IF X >4y THEN GOTO 20 

61 PRINT "FORNECEDOR : " : 

X) 62 IF F$(X) <>"" THEN PRINT F*C 

63 INPUT X* 

64 IF LEN X$>4 THEN GOTO 63 

65 IF X$<;"" THEN LET F$CX)=X$ 

66 IF Xí<>"" THEN PRINT X$ 

67 GOTO 20 

68 CLS 

69 GOSUB 80 

70 LET N = 1 

71 IF Q (N) =0 THEN GOTO 73 

72 PRINT , , "tÜtóSfcJT " ; N; " ",Dí 

é&ècf 8;, ' x ,,;otN) '" F 

73 IF N>=55 THEN GOTO 77 
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74- LET N=N + 1 

75 GOTO 71 

76 GOTO 20 

77 RRND USR U 

78 CLS 

79 GOTO 20 

80 PRINT 




CUSTQI 


81 PRINT 

[2 

82 RETURN 

83 LET C=0 
64- CLS 

86 IF^VuSO THEN 5 LET C=0(N)*PCN 
) +C 

87 LET M=C 

88 IF N > 4-9 THEN GOsUB 91 

89 NEXT M 

90 GOTO 97 _ 

91 IF N =50 THEN GOTO 105 

92 IF OCN) < >0 THEN PRINT D$ (N) 

, ,"+ O (N) j •; C* í© IN) 

00 ) . „ 

93 LET C=C+ (C* (O (N) /100) ) 

1 % IF P(N)<>0 THEN PRINT + RD 
ICIONRDQ" .. " $ *’;P(N) 

95 LET C=C+P(N) 

97 PRINT N .. .. "PREGO FIMflL ” " í 

; C 

98 RRND USR 681 

99 CLS 


100 GOTO 20 

101 PRINT .. , * 
UIUO" 

102 INPUT X$ 

103 SRUE X$ 
104- GOTO 20 

105 GOSUB 80 

106 PRINT , 1 


DIGITE NOME DO RR© 


ITENS DE 1 R 4-9 1 * 


$ "H .» ,i ,i 

107 GOTO 92 
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igEEEiaggiggBBEigi^masr 
IãEEEM3HigEE) 


PRÜJ 


CüNTINÜftR 
HLTERRR 
L i_ 3 THK 

PREUISflü FUTLíRm 

QRRURR 

INICIRR 


Este programa faz uma previsão futura do seu orçamento 
domestico, dentro dos seguintes critérios: 

A. Possui os códigos de 1 a 10, de 11 a 20 e de 21 a 25> 
que arquivam a descrição em 32 letras e o valor da 
despesa ou rendimento. 

B. Os códigos de 1 a 10 terão 03 seus valores corrigidos 
de acordo com o índice percentual de inflaçao ou cor 
réçao informada. Para por exemplo: restaurante, super 
mercado, etc.... 

C. Os códigos de 11 a 20 arquivam despesas sem correção 
mensal. Por exemplo:prestação, escola, etc. ... 

D. Os. códigos de 21 a 25 arquivam os rendimentos. 

0 pi*ograma fornece uma previsão de gastos X rendimentos 
para os próximos "n M meses. 

Para interromper a entrada, digite: 

XXX, como descrição, nos códigos de 1 a 10. 

YYY, como descrição, nos códigos de 11 a 20. 

FIM, como descrição, nos co'digos de 21 a 25. 

15 LET K=0 
20 GOTO 500 
105 LET K=1 
110 DIH Rí(£5,32) 

120 DIM D(£5) 

125 DIM pi' 26) 

200 GO SUB 20O0 
202 PRINT 
335 PRINT 
3 o O FuR N = 1 TO 2 4- 

355 IF N(21 THEN PRINT 
E R DESCRICRO *' 

356 XF N = £l THEN PRINT 
MENTOS" ,. 

370 XP N>20 THEN PRINT 
E DESCRXCRO ";N-20 

371 INPUT X$ 

372 LET X =LEN X$ 

373 XP X$( TO X) = l, FI« ,i 
O 50*^ 

374- IP X$< TO X) =“XXX !i 
O 4-000 


N;“ ENTR 
,, "RENDI 
N;" ENTR 

THEN GOT 
THEN GOT 
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THEM GOT 


37b 

XF x$ *: 

TO X? =“W' 

O 6000 


3?b 

LET 

377 

PRINT 

H$ iNi 

376 

PRINT 

"UfiLOR" , ” Ü» 

379 

INPUT 

D (14) 

obc 

PRINT 

D (N > 

o 6 •Ji* 

PRINT 

< > INT (N /4- 

3 3 4 

XF N /4- 

390 

386 

PRU5E 

30© 

367 

CL 5 


oy0 

NEXT N 

500 

CL5 


505 

PRINT 

aaíifcfâ®" 


510 

PRINT 


ÍÜM3 

* 

. , '* CONTINU 

530 

PR IN F 

540 

PRINT 

“RLl lhRR 

54-5 

PRINT 

“LISThR"> 

550 

PRINT 

"PREUI5RO 

5€/Q 

PRINT 

“GRhOhR" 

570 

PRINT 

44 INICIRR" , 

3 9 O 

INPUT 

X 

3 9 6 

IF X < 1 U R X > 6 T t“i 


IF X < > 

Õ AND K-0 


THEM GUTL 


RCRHE 


HÜB935) 
SEBBEBEBM aS 


' h R ‘ 1 ,-a- 
:w 

jíc] 1 * 

FUTURA" .. Cí‘ 


itM GOTO 5'30 
THE N GOTO 5 


599 CL- 

600 TF 
610 IF 


X = 1 

x=s 


THE 1-4 
THEN 


bU l u 
GOTO 

GOTO 
GOTO 
GOTO 
GUT U 


5000 

800 


300 

1500 

25O0 

100 


Õ20BIF X=3 THEM 
630 IF X =4- THEN 
Õ40 IF X=5 THEN 
õi5 IF X=6 THEN 
650 GOTO 500 
SOO PRINT "flLTERRCOts" 

805 PRINT ,,“OURE R DtaCRIC 
O ITEM 7“ 

810 INPUT 


RO D 


815 

Q2Õ 

625 

330 

850 

635 

SjÕ 

84-0 

650 


X* 

PRINT X$ 

LET X =LEN X$ 
FOR N = 1 TO 25 
IF R$iN, TO XJ 


= X$ THEN GOTO 


NEXT 

PRINT 

GOTO 


N 

"Nhü 
63 0 


PRINT 
RLTERE” 
3bL P RINi 
854- PRINT 
352 INPUT 
S 6 4- IF X5 


ENCONTREI" 
“DIGITE NEU EINE ÜL 


, J"DESCRIChO 
h $ i N ) 

X $ 

>““ THEN LET 


HS <NÍ 
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tioo 

PRINT 

A $ ( N ! 



670 

PRINT 

“UhLOR 

5hoE 41 >" $ “ 

;d(n 

3*72 

INPUT 

Xí 



674- 

IF X$< 

> THEN LET DÍN) 

= UAL 

x$ 

37o 

PRINT 

DÍN) 



390 

PRINT 

"DIGITE 

N EU LINE 1 * 


692 

RfiND U 

SR 681 



394- 

GOTO 300 



900 

GOSUB 

3000 



901 

PRINT 

»1 

LISTA do 

ARQ 


UIUO" 

902 LET T =0 

904- LET R=0 

910 FOR N=1 TÜ 24- 

915 IF D (Ni = 0 THEN NEXT N 

91d IF N<:21 THEN LET T=T + DÍN) 

919 IF N >20 THEN LET R=R+D(N> 

920 PRINT R $ ( N1 

930 PRINT •■Èu@SM5f N, " $ ";0(N! 

94.0 IF N /5 = 1 NT CN,'5) THEN RAND 
UoR Do1 

94-2 IF N/5=INT ÍN/5) THEN CL5 
94-5 IF N/5 = INT CN,'5) THEN G05UE 
3000 

950 NEXT N 

960 PRINT , ,"OE5PE5flS",“$ “ ; T 

965 PRINT “RENDIMENTOS" , " $ "R 

970 PRINT ,,“509 5ITUflCflO EH ”; 
975 LET B=R-T 

960 IF 6 >0 THEN PRINT ; "POSITIU 
R“ 

932 IF B<=0 THEN PRINT "NEGATIU 

R " 

990 PRINT "EH $ ";ABS (Bi 

995 IF B<0 THEN PRINT ,,"REDUZA 
RS DESPESAS","AUMENTE 05 RENDIM 
EMTOS" 

99o RAND USR ÕS'1 
993 GOTO 500 
À500 GOSUB 3000 
1S10 LET PA =0 
ISIS LET K =0 
.i 520 PRINT 

ÍS22 PRINT "ÍNDICE DE CORRECAü 

1530' IMPUT I 
154-0 PRINT I 
1555 LET Dfi=0 
15S3 FOR N=1 TO 10 
l3t%5 LET DA=DA+D (MJ 
1567 NEXT N 

1p 70 LET Pfl=Dfl* íl + I/100) 
í575 LET PO-PR-DR 
1530 IF K=1 THEN LET PA=PR+PC 
1590 FOR N=ll TO 20 



1594- 
1596 
1.593 
ÍD00 
1610 
id ‘12 
1620 
1625 
1630 
1d 35 
10 4.0 
1650 
1 o 60 
* » • • 
i 661 

lo õ 2 
1663 
1664* 

l.Dbb 

1dd8 

1670 


DR 

PR 


LET DR =DR+D ÍNJ 
let pp=PR+D CN) 

PRXNT *'MEo BR^t $ 

PRXNT '*PROX . HE‘o 4 
PRXNT 

PRINT = "gH 2 EflII 12 Sfâã” 

FOR N“*l TO aS 
TF PínTs© THEM NEXT M 
Íf DtNIoa THEN PRINT 
. $ ”;D(N) 

LET r=r+oui> 

NEXT N 

LET B=R- (Ph> __ .. 

PRINT .. /'BhLRNLU: 

QPTMT ** D 

PRXNT . » "SÍÉTURC^O ^ , lü 

IFB<0'tHEN PRINT "NEbflTlUfi 


• • » i 


iò ?5 IF B>© 


1630 

1700 

1710 

1720 

O 

1730 

174-0 

1750 


THEN PRINT “POSITIUfl 

PRINT • . "O 13ITE 5t*“p•• 
PRINT ”PROX. MEb OlGxlE P 

3? N INKÍv*1f»P** THEN GOTO 50 


domesticêT 

siasEiaãsaasMa 

pROJECftÜ P 6 


CL5 

GGSU6 3000 

l i oÕbpS\?«t 15 IcaaeiaESBaa 1 ^ 6 " 5 ™ 3 

fSÉl' 

S» glí^«ogo«neNTC 

3510 GOTO 500 ti 
3000_PRIMT .. .* 

ÇUFfffnT " 

TURR" ,„ k1 

3910 RETURN 

LET A$CN) ="XXX 
LET N=l£ 

? 8 S 0 n 2!>0 a* 

_ ^ T xíÍ^Í^ 'oí 

N GOTO 3&2 
5®g| plíÍT 1 .."BROUIUO ESGOTADO > 
PAUSE 300 
5050- GOTO 500 

SÓ?!» LET R*jtg) ="WV 

1111 81Í/5S? 


4-610 

4-015 

4-020 

4-04-0 

5005 

5005 

5010 


3 } 


X $="YYY" 


THE 




FíftM TDPER 
EM COOIOO 


Este programa com menos de quatrocentos bytes np có 
digo da máquina permite carregar dois programas em 
BASIC simultaneamente na RAM, um após o outro, via 
teclado ou cassette. Urn programa chama o outro de 
ate 2,7 K como uma sub rotina. 

Conformo e descrito aqui, produzira uma gravação i 
gual a comercializada pela Micron Eletrônica Com. e 
Ind. Ltda., desde agosto de 1982, a qual funciona a 
penas apos o uso do comando r*EW, ficando imune a rê 
gravações. ~ 

INSTRUÇÕES DE USO DO PROGRAMA: 


Carregue, do cassette, o RAM TOPER e aparecerá no 
video o texto com as instruções de uso. 

Nao use LIST; SAVE, RUN ou qualquer outra coisa . 
Digitando apenas NEW 0 RAM TOPER estará pron 
to para uso. Teste o exemplo: ~ 

10 PRINT "TERÇA" 

2Çf PRINT "QUARTA" 

10 LET L=USR 325^ 

A0 NEW 

Rode o prpgrama e aparentemente ele será apagado pe 
la instrução NEW da linha ^0, Digite este outro: 

10 PRINT "SEGUNDA" 

20 LET L=USR 32723 
10 PRINT "QUINTA" 

Rode e será impresso: 

SEGUNDA 

TERÇA 

QUARTA 

QUINTA 


SOBRE 0 PRIMEIRO PROGRAMA, EM BASIC: 

A. Sera armazenado em espaço supostamente inexisten 
te na RAM, pelo comando LET L=USR 325 ^ 

B. Nao poderá ser listado ou gravado. 

C. Poderá ser chamado como uma sub rotina em um pro 
grama principal, uma ou mais veze 3 , pelo comando 
LET L=USR 3*2723 

D. Não armazenará as suas variáveis. Contudo pode 
manipular as variáveis do programa principal. 

E. Nao utilizar FOR/líEXT devido a existência da va 
riavel de controle, nem 0 comando UIPUT, a menos 
que para variáveis indexadas, se dimensionadas 


P. 


no programa principal. 

0 comando LET L=U3R 32723 pod< 
rior de ura looping no prograrm 


ser usado no inte 
principal. 


124 



COMO CARREGAI? O PROGRAMA 

Digite as linhas de números 1 a 6, sem alterar absolu 

tamente nada. c * ~_ 

A linha de número 7 deve conter pelo menos 4S0 oara| 
teres quaisquer para reservar os endereços de 16625 
a 17104, os quais receberão a rotina em couigo. 

Na listagem a seguir, a linha 7 recebeu 460 caracte 
res "X". 


1 REM 1234-56789 

2 REM "RRM TOPER" 

3 FOR N=16514 TO 16522 

4 . i_ET X=tXNT (RNDS4-4-) ) +67 
5 POKE N .. X 

e k 1 cr VT Kl 



vvvxxXXXXXXXXXXXXXXXXXXXXXXXXXXX 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


XXXXXXXXX 


Para ter certeza de que nada foi alterado no9 linhas 
Í a 6, digite PRINT PEEK 16621 e a resposta deve ser 
7, caso contrário, volte a conferir as linhas de 1 a 6. 

Digite as linhas restantes, de 8 a 32 e nao rode o 
programa. Repito NÃO RODE o programa. 
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s 

<3 

10 
11 
H3" 
is 
n de 


LET L=USR 
LET l_ =USR 
LET L=USR 
PRINT " 


16682 

16719 

16626 


MICRON ELETHQNT 


■•"ESTE PROGRAMR RCAB 
t 307 4- BYTES DE RRER 


PRINT 
__ CRXRR 

' ” N( ^ ÕURL PODE SÉR RR 

O "í¥2B 0 ~l'' UM, PROGRRMR Eh BRSIC , " 
.. RTEH 2700 BYTES." 

13 PRINT , j "USE RO FINRL DO ME 
|S9^..g”^"ÇgMRNDO B LET L=USR sSI 
S a ..A ITE NEU E O 2* PROGRflMB 

-• C'IR TECLRDO OU CRSSETTE ** 

14- PRINT "O 1* PROGRAMR pnr>F 

TXNO S ” R *'Kin C !í» ,M S DO CC * MO UMR SUBRU 

oSnSóo 'o LBT LSuig R g^» EL °"' " c 

15 PRINT - 

GITE NEU" 

16 PRINT 

BSMP umaa -' 

17 LET L=USR 
NEU 

LET X = 1 

FOR N = 16625 TO 164B2 
PRINT N;” 

PRINT PEEK N , 

GOSUB 76 
IF X*< >"" THEN 


"RPOS R LEITURA , Dl 
"TODOS OS DIREITOS 


PRQIBXDO REPROD 


16 

50 

51 

52 
54- 
56 
58 

X*) 

60 

62 

64. 

66 

66 

69 

7© 

72 
74- 

76 

77 

73 
80 
82 


681 


LET X =X +1 
IF X = 15 THEN 
NEXT N 
STOP 

INPUT X# 

LET X = 1 
CL5 

NEXT N 
STOP 

INPUT X$ 
PRINT X* 

IF X * n' > "E 
LET N=N-5 
GOTO 62 


POKE N , URL (’ 


GOTO 63 


THEN GOTO 58 
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NXO RODE 0 PROGRAMA. Caso voce queira testar as li 
nhas com texto, substitua a linha de numero 13 ?or 
13 STOP e use EUR 11, ou voce destruira o prcgruna, 
porque as sub rotinas em código charadas pelas li 
nhas 8,9 e 10 ainda não foram editadas. 


Para se editar rotinas no código da máquina é # pre 
ciso o auxílio de uma pequeno programa editor,^ 
cluso na listagem acima, das linhas 50 a 82. Para u 
sá-lo basta digitar KUN 50 
Digite EUR 50 e irá aparecer no vídeo: 

sTV* o código contido no.endereço 16625. ± ° codigo 
do caracter X. Se voce digitar apenas New Line ele 
nao será alterado, sendo mostrado o endereço seguin . 
te e assim por diante ate o endereço 16992. 

Pare o programa. Como a tecla EREAK significa espa 
ço, durante as instruções INPUT, apague uma das as 
pas do cursor usando SHIFT KU30JT, digite S^OP e 
New Line. Digite: 

LET N= 16800 e New Line 


GOTO 52 e New Line 

Os endereços para verificação ou edição se iniciar&o 
em 16800. Experimente digitar: 

E e New Line 

0 endereço em edição sera subtraido em cinco, ?a^a 
os casos de ERRO. 

Recomeçe usando EUR tf e digite os códigos listados 
a seguir, nos seus respectivos endereços, com muita 
atenção. 
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16625 

16529 

16633 

3.6637 

1664-1 

1664-5 

1664-9 

16653 

16657 

16661 

16665 

16669 

16673 

16677 

16661 

16665 

16669 

16693 

16697 

16701 

16705 

15709 

16713 

16717 

16721 

15725 

16729 

15733 

16737 

1574-1 

1674-5 

1674-9 

16753 

16757 

16761 

15765 

16769 

15773 

16777 

16761 

15765 

16769 

16793 

16797 


33 

0 

126 

rí? 

54 

©“ 

64 

54 

14-2 

54 

5 

91 

64 

54 

5 

194 

5 

255 

65 

54 

5 

194 

F, 

255 

64 

54 

5 

194 

201 

33 

34 

4 

253 

115 

64 

237 

64 

42 

17 

0 

237 

82 

93 

42 

1 

176 

0 

201 

65 

1 

17 

244 

176 

201 

64 

17 

157 

237 

193 

237 

127 

1 -k J—w 

-Zt -«/ 

237 

91 

157 

237 

231 

127 

54 

17 

237 

0 

176 

25 

35 

54 

54 

15 

0 

35 

35 

54 

54 

2© 

212 

35 

35 

54 


64 

54 

141 

64 

33 

237 

0 

33 

54 

92 

33 

144 

0 

35 

10 

65 

33 

91 

0 

35 

22 

55 

--5 
w U.' 

240 

0 

35 

34 

6 5 

0 

116 

64 

33 

34 

2 

115 

123 

123 

64 

12 

167 

249 

84 

123 

64 

12 

237 

33 

91 

6 

1 

126 

237 

42 

12 

125 

64 

82 

22<a 

57 

254 

139 

10 

254 

127 

82 

216 

33 

125 

0 

116 

33 

0 

54 

39 

14 

35 

35 

54 

54 

241 

49 

35 

35 

54 

54 

31 

30 

35 
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16SG1 
15805 
15609 
15613 
15817 
16621 
15625 
16629 
16833 
15837 
1584-1 
15845 
15849 
15653 
15857 
16861 
16865 
15669 
16873 
15877 
16881 
15885 
15889 
15893 
16697 
16901 
lb905 
16909 
15913 
16917 
16921 
16925 
15929 
15933 
15937 
16941 
15945 
15949 
16953 
16957 
16961 
16955 
15969 
15973 


54 

32 

35 

54 

127 

35 

54 

118 

35 

54 

0 

35 

54 

14 

35 

54 

126 

35 

54 

O 

35 

54 

33 

35 

54 

0 

35 

54 

23 

35 

54 

35 

35 

54 

143 

35 

54 

0 

201 

35 

42 

252 

115 

201 


35 

35 

54 

143 

35 

54 

0 

35 

54 

37 

35 

54 

31 

35 

54 

30 

35 

54 

244 

35 

54 

30 

35 

54 

137 

35 

54 

0 

35 

54 

30 

35 

54 

126 

35 

54 

0 

35 

42 

34 

41 

127 

34 

33 


35 

54 

126 

35 

54 

0 

35 

54 

15 

35 

54 

211 

35 

54 

34 

35 
54 
127 
35 
54 
21 
35 
54 
126 
35 
54 
3 

35 

54 

31 

35 

54 

31 

35 

54 

246 

35 

54 

250 

64 

33 

41 

3 


54 

37 

35 

54 

234 

35 

54 

39 

35 

54 

236 

35 

54 

35 

35 

54 

143 

35 

54 

0 

35 

54 

34 

35 
54 
0 

35 

54 

211 

35 

54 

34 

35 
54 
127 
35 
54 
118 
64 
127 
34 
0 

64 

64 
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16977 
1698 1 
16985 
16989 


54- 

252 

64 

34 


13 

12 ? 

42 

7 


201 

34 

250 

64 


4 
4 
127 
201 


Após todos os códigos terem sido entrados, grave o 
programa. Confira os códigos, byte por 03 r te, corrigin 
do,se necessário. 

Volte a substituir a linha 18 por 18 NEff e regrave o 
programa. Para testá-lo, conforme as instruções de u 
so, digite KLTN. 

CASO NAO FUNCIONE, provavelmente voce perderá o con 
trole sobre o teclado, sendo necessário desligar e li. 
gar o micro. Volte a última gravação e reconfira os 
códigos cuidadosamente. Quando se perde o controle 
do teclado, equivale ao programa em código haver en 
trado em "um looping infinito", não sendo atingido 
por alguma instrução RETURN. 

CASO FUNCIONE, substitua a instrução RE»! da linha 2 
por SAVE e apague as linhas de números 5í^ a 82. 

Grave o programa usando GOTO 2. 

Nesta gravação o programa, quando for carregado do 
cassette, "sairá rodando" não lhe sendo possivel re 
gravá-lo. 

As linhas do programa de números 3 a 6 colocam nove 
códigos nos endereços de 16514 a 16522 que não cor 
respondem aos códigos des caracteres ou palavras- 
chave "carregáveis" na memória de vídeo. 

A linha de número 17 significa algo como: 

IF INKEYS="" THEN GOTO 17, fornecendo simultaneamen 
te o vídeo, mesmo sem SLOW ( modo FAST)* ~ 
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tecladd medánicd 

PROIBIDA A REPRODUÇÃO TOTAL OU PARCIAL 
TODOS OS DIREITOS RESERVADOS 



MICRON 

eletrônica comércio e indústria ltoa. 

Ay. S. Joflo. 74 - T.Wloo. 21-4194 S. Jo.4 do. Convpo. Ed. d. S3o Poulo 
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TECLADO NECANICD 


Qí janeiro de 1982, quando foram lançados os micros 
TK 82C e NEZ8000 , achamos que havia chegado o momen 
to da construção de um laboratório para o ensino de 
programação basic e asaembler Z80, onde cada aluno 
pudesse desfrutar individualmente do ubo de um mi¬ 
cro, durante todo o tempo de aula. 

Para a realização prática desta laboratório depara- 
mo-noa com os seguintes problemas: 

• Ínvia bilidade do teclado tipo "touch" para fina 
didáticos, coáerciais ou mesmo pessoais . 

» insuficiência em tamanho e peso dos mesmos, asso¬ 
ciada a falta de opções para interconexõea entre 
micros, vídeos e cassettes. 

• distorções e interferências dos geradores de RP 
dos micros. 

• falta de software, nao tanto os habituais aplica 
tivos, mas didáticos para conhecimento e uso da 
maquina em basic e , principalmente, em asaembler 
Z80. 

Basicamente, a solução adotada para os tres primei- 
ítens fci criar um teclado mecânico, incluindo te - 
ciado, micro e a.fonte em um gabinete, com as devi¬ 
das tomadas para interligações. 

A seguir, descrevemos "um projeto" para este fim 
que originou o laboratório de programação instalado 
ea uso, desde 17 de maio de 1982, pela Associa - 
çao Joaeenae de Iksino/CDT/ETEP em São José dos Cam 
pOB - SP. 

As peças"vitais" para a montagem descrita são comer 
cializadas pela Micron Eletrônica Comércio e Indús¬ 
tria Itda., na forma de Kit. 
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MICRON ZX 
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IN KEYS 
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MICRON ELETRÔNICA 

















0 TECLADO 


A utilização de um teclado mecânico/eletrônico e 
impossível por: 

. o ASC II, código utilizado na maioria destes t - 
cladoa não é compatível com a lógica do teclado 
Sinclair; produzida pela ligaçao direta entre aa 
teclaa/chaves. 

Ouso, apenas, do teclado convencional sem os cir¬ 
cuitos decodificadores ainda era impossível por: 

. elevado custo; 

. inviabilidade da oa gravar quatro palavrae-cha- 
ve a ainda, o eímbolo gráfico em uma ao tecla. 


Adotamos uma placa de circuito impresso em face u 
nica (vide lay-out), colocando, diretamente sobre 
o lado reverso, a gravação, por silk-screen,das pa 
lavras-chave e quareáta teclas individuais, previa 
mente gravadas. 


A gravação das palavras-chave, tanto no painel, cn 
mo nas teclas pode ser feita com letra-set ou de- 
ca-dry, nae cores preto, branco e vermelho.Bo ca 
só do painel, eobre fundo cinza. Para proteção a- 
plica-ee verniz em spray. 

Boa técnica para a fixação de tintaa de baixa reeia 
tência é levar as peças ao forno brando, para quel 
ma, após a pintura. 


A GRAVAÇÃO DAS TECLAS 


Tínhamos as opções: , .. 

. dupla ou tripla injeção de plaatioo, separando 

teclas e lttreiros; 

. silk-screen. Superfície pequena e côncava; 

. ailk-screen com fixação por ul tra-viole ta. Proces 
ao japonês; 

. hot stamp; 

. pantografia; 

. diversos. 


Optamos pela pantografia, proceeao semelhante àe 
gravaçoe6 feitaa em canetas e alianças, deixando-se 
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um baixo relevo de o,ômm a eer preenchido parcial- 
nente com tinta, em dua a coree, uma para cada pala 
vra-chave. 

£ate processo pode eer facilmente conseguido pelo 
amador, ou, como citado anteriormente, usar-ae le 
tra-aet ou deca-dry. Deve-ee tomar cuidado para nao 
derreter aa teclas, durante a queima do verniz. 

Dois protótipos foram conetruídos com deca-dry e 
envernizados. Somente, após aeia meses de uso exces 
sivo, oa letreiros daa teclas ahift e brealc começa 
ram a sair, Foram substituídod e duram ate esta da 
ta. A gravação por pantografia, em baixo relevo 
fica excelente e ó praticamente indestrutível. B 
a utilizada nas teclas do kit. 


0 GABINETE 


Aa opções eram (e são): 

. injeção plástic^ 

. fibra de vidro 
. madeira 

. chapa metálica estampada 

A injeção plástica só é viável para alta tiragem,de 
vido ao seu elevado custo. A fibra era viável, mas 
requeria uma matriz e, nem senlpre, apresenta resul¬ 
tados de acabamento satisfatório, nem facilidade pa 
ra fixação de outras peças. A madeira foi a escolhi^ 
da. 

Se, devidamente feita, calafetada, lixada, com apli, 
cação de um "primer" e um fundo, seguindo-se de pin 
tura a pistola, com resina catalizável (tipo epoxi), 
cor cinza metálica, ou tinta automotiva em aerosol, 
ofereço excelente acabamento. 

A aeguir, a planta da caixa. Oa desenhos em escala, 
mostram a mesma em posição invertida, para facili - 
dada de entendimento. A caixa é "virada" para uso 
conforme o desenho em perspectiva, fora de escala. 
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RELAÇlO DO lUTERXAL 


Quantidade 

40 

40 

01 (*) 

01 (•) 

01 (•) 

01 (+) 

03 

03 

01 

01 

01 

01 

01 

01 

01 

01 

20 

04 

08 

04 

04 

DO KIT 


Descrição 

Teclas Individuais, pretas, contato mo 
mentâneo, “ 

Cravações por pantografla, nas teclas, 
em duas cores. 

Circuito Impresso com o painel do te 
ciado,em fibra 28 x 17 cm. 

Circuito impresso com o painel de saí¬ 
das, em fibra 25 x 4,5 cm. 

Painel do fundo, em fenolite 28 x 17,2 
cm. 

Gabinete em madeira 30 x 19 x 4,2 x 7, 
3 cm. 

Plug tipo JP2 macho. 

Plug tipo JP2 femea. 

Plug tipo RCA macho. 

Plug tipo RCA femea. 

Chave PE-AD 1x2. 

Chave H-H 2x2. 

Metro de cabo coaxial 26 AWG. 

LED vermelho. 

Resistência 680 ohms, 1/4 ff. 

Metro de cabo paralelo X 18 - 28AWG. 
Adesivos face dupla, 3M, 1x2 cm. 
Adesivos protetores, 3M, 1x2 cm. 
Parafusos autotarrachantea, 2 x.8. 
Parafusos autotarrachantea, .4 x.8. 
Parafusos com porcaa, ,3 x.8 cm. 


(*) Peçaa com pintura a pistola, cor cinza metálica, em 
esmalte poliuretano (resina catalizável) de alta du 
rabilidade. ” 


(+) Peç a sem acabamento. 
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etpinsOes 

Noa aio roa NE Z, «oomapda-aoa a colooação^da ~«érla no 

Unir a mamária a placa do micro com aoquete e 
flexível. 

Noa microa TK, recomandamoa ? eij ^ r 

rr.; rssiirr.-sss sssurs—* 

;.;rT P ;^. r dí““« «».„...«.—«. ■«> 

do eatágio da .RF. 



DIAGRAMA 2 


UATERIA1 EXISTENTE NO KIT 

40 teclaa individuaia. gravadas em duaa corea, excluiu- 

do exiiiboloe pT£iíicoâ« , ««idas e fundo. 

3 painéis de circuito impreeeo. Teclado, eaidaa nma 

Adeaivoa JM de façe dupla. 

1 gabinete em madeira, eem acabamento. 

1 interruptor FEAD 
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AS LIGAÇÕES 


A» ligações a «re* 'eitas q«5«* 

conhecimento^de computação, deade que interpretados oe 
rêferidoa diagramas. 

~ UT « VAT} cc KF podem aer feitaa usando - 

“ 5J*3SSi “.rsr.r^r ■■ 

J“ nãf estã^ representados no diagrama 1. 

f / , - ps á retirada antes do estagio RF, 

contido em m blxndagem metálica^^^^^^ 

; n aÍ r “ d víd e eÍÍ e rtefro;per «te último atrave's do plug 
“f s2d! jK femea e conectar o terra a saída. 

n interruptor da fonte LIGA/DESL foi, ou deve aer sub^ 

^ ^ rir, "FEJLD" ficando ffxado no p* 3 - 

tituido por um do tipo iiJUJ , 

nel principal. 

o LED existente no painel principal, indica 0 
resistência de 1K ohm de 1/2 Watt. 

O transformador da fonte de alimentação poderá aer £ 
xado“a l^eral esçuerda do gabinete, proximo a entra 
da da rede e comando 100/220V. 


AS LIGAÇÕES DO TECLADO 

;^ 1 SLrr , .-r.-s?5Sir' -* 

xi.sruioníórdriSi::: ? 

Estão marcados comoi os pontos a serem liga 

MH ’ t**’ordem) ’ aoa* diodoa**W a E9, componentes mo 

SLinSiSSÍi-»» - • “«• “ 

na do 9 ta * 

estão marcados de: . s conforme o 

s.*ra\=rs zsrzr~-&~- «. 

gados aos diodos. 
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CAQirJCTI PARA «ISTtMA 
MICn 9 COMPUTADOR 















1—E I TDR OEá EPRDM 


CIRCUITO LEITOR DE EPROM Cr$ 17.500,00 

Ligado entre a expaijsao de memória e o micro, lê progra 
mas de uma EPROM pré-prcgramada, com o uso da função 
USR- £ só ligar para usar os programas. 

Montado em placa de fiberglass com terminais em banho 
de ouro. Não requer alimentação externa ou alterações 

no micro. 



EPROMS 

PRE-PRDBRAMADAS 

FUNÇÕES I Cr$ 9.500,00 

Contém o mesmo programa da fita cassette. 

RAM TGPER Cr$ 9-500,00 

Contém o mesmo programa da fita cassette. 

PAREDÃO 9.500,00 

Jogo para demolir o paredão. 

VANTAGENS: 

* Nao ocupam espaço na RAM. 

* Podem ser usadas com outros programas carregados 
via teclado ou cassette. 

* Não precisam "ser carregadas*’ do cassette.É só li^ 
gar. 


TECI —D O MECÂNICO 

TECLADO XECÍKICO EM KIT Cri 27.000,00 

Kit para montagem de um teclado de acionamento mecâ 
nico. Contém 40 tecla3 gravadas em baixo relevo a du 
as cores, excluindo os símbolos gráficos, tres pai 
nêis pintados em esmalte poliuretano cinza metálico, 
sendo dois deles em fiberglass com letreiros em res_i 
na epoxi preta. Contém adevisos, interruptor e o 
gabinete em madeira, sem acabamento. 
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SOFTWARE EM CASSETTE 
contabilidade 


— ■■■— —— 16K Cr$ 4.000,00 

FOLHA DE PAGAMENTO 

' Tf irní ee os contra-cheques por fun 

cionário, P e3 ^ 0 c ^ 8 0 C 3 0 p^eêntua^s VLsc^to fTguta 
IAPA^ àe acordo com os percemuaia 

do FGTS. 16K 4,000,00 

CONTÁBIL 

D9ad ° atrjm^entos do c^entofpeloe c)lito7 de déb^ 

riVAS Fornece a list 

go, com números de entraaa, valores e 

programa ordenador de codigos. 

CORHBÇlO MONETÁBIA DO MOBILIZADO 16K Cr* 4.000.0 

Corrige as contas do 'corrrgfa 

depreciaçto^elas°ORTN, confome Mcreto-Mi 1.598 do Im 

posto de Renda. 4.000,00 

CONTAS A RECEBER CÜ PAGAR 

Arquiva até cem ^ ntas d^venciment^è valor. Usta o 

= zssr£sz: ir\ris ««.« 

co^.0»*«». 

Corrige as contribuições monetária e valores a re 

SK“ d^de’quf f^iecido e o índice da correção, do mes 
em debito. 


FONÇOES I . . da máquina acrescenta 

Um Kbyte de sub-rotinas no Renumerador de linhas de 
ao micro tres funções ex r * instruções GOTO * 

programa, renumerando ^ p0 r blocos e PM 

COSUB. Apagador de linhas P . lido do cassette " sai 

memória usada. 0 programa quando e lido Digita _ se KEB 

rodando- com as instruções de uso ™ pr ogroma em 

e as funçõe 3 pooem ser us via tecla do ou cassette, 
basic, de ató 15K, carregad l6R üi 5 . 0 OO.OO 

““ T0PER - rvta3 àe rotinas no código da má 

tenos que quatrocentos cytes em ba:)ic simuitu. 

quina permitem carregar dois pr a teclad0 ou cassette. 

Lamente na RAM. «= «*» 0 £ °á 2 . 7 K, como -uma sud-roti 

Um programa cta-^ 0 CO m código de maquina 

vío Serve para carregnr F ro & 

parâ leitura com 0 LISASSE.3 . 1&K Cr$ 5 .000,00 

DISASSB4BLER vornece os en 

Lê códigos de máquina no segui 

iereços em decimais, “ ^ impresso 

dos dos mnemónicos ^^tLcões do Z80. 
ra. Interpreta todas as instruções ao 



JOGOS 


JOGOS I 


2K Cr* 3.000,00 


Quatro programas com figuras e movimento, em basic. INVA 
SORES, APAGUE A TRILHA, BATERIA ANTIAÉREA, DESENHE NA 
TELA. não usa SLOW. 

JOGOS II 2K CrS 3.000,00 

Tres jogos de inteligência com sorte e o bio ritmo. JOGO 
DA VELHA, JOGO DA FORCA. DADO PARA DOIS, BIO RÍTMO. 

JOGO DE DAMAS 16K Cr$ 4.000,00 

Elaborado em basic. Apresenta no vídeo o tabuleiro e as 
peças. Voce e o macro podem fazer damas e saltos multi 
pios. Pode-se regravar o programa para continuação futu 
ra do jogo. 

JOGO DE XADREZ Í6K Cr$ 5.000,00 

Elaborado no código da máquina. Apresenta o tabuleiro e 
as peças no video. Permite ate seis níveis de dificuldade, 
lista as jogadas e pçzmite alterar o tabuleiro durante o 
Jogo ou para estudo. Tres minutos de gravação em cassette. 

DIVERSOS _ 

CÁLCULO DE CUSTOS E ESTATÍSTICA 16K Cr$ 4.000,00 

Calcula o custo final de um produtq com 49 itens cfe custos* 

fixos, com quantidade, descrição, fornecedor e preço, alem 
de seis códigos para custos em percentuais sobre o acu 
mulado com parcelas intermediárias de valores fixos. In 
clui um programa de ESTATÍSTICA para calculo da média, des 
vio e erro padrão. 

EDITOR DE TEXTOS E CORREÇÃO DE PROVAS 16K CrS 4.000,00 

Edita textos com facilidades de edição, leitura, gravação, 
e impressão de 240 linhas com 32 caracteres cada,dis 
tribuidas em 40 parágrafos. 

0 programa CORREÇÃO DE PROVAS corrige "n" provas com "n M 
perguntas, arquiva o gabarito e as provas cóm os nomes em 
15 letras. Fornece as notas e permite alterar o gabarito 
e as provas. 


infantil 


2X CrS 3.000,00 


Quatro programas.TUTOR DE SOMAR, DE MULTIPLICAR, TABUADA 
e ALFANUMÉRICO. A Tabuada formula dez questões aleatórias 
de uma das quatro operaçoes. Oferece outra chance em caso 
de erro ou fornece a resposta certajem casc de desisten 

cia. 0 Alfanumérico é um jogo do tipo adivinhe o número 
com letraa ..flmn.roa. 0 mlc?o dá as dica*._ ' 

Para receber uma cópia de MICRO BITS e maiores informa 
çoes sobre o clube, envie Cr$ 300,00 em cheque nominal, 
para; David Anderson 

MICRO BITS CLUBE NACIONAL DOS TK/NE/SINCLAIR 
_ Caixa Postal 12.464-04798 - SAP PAULO - SP _ 

MICRON 

ELETRÔNICA COMÉRCIO E INDÚSTRIA LTDA. 

Av. $. Jofio. 74 - T«Uforv« 21-4194 5. Jot4 dot Campo» Esl. d* Sào Paulo 




